surrtpk.F90

Go to the documentation of this file.

SUBROUTINE surrtpk

!     Adapted from Eli J. Mlawer, Atmospheric & Environmental Research.
!     by JJMorcrette, ECMWF
!     ------------------------------------------------------------------

#include "tsmbkind.h"

USE yoerrtwn , ONLY : ng        ,nspa      ,nspb      ,wavenum1  ,&
           &wavenum2  ,delwave   ,totplnk   ,totplk16

!     ------------------------------------------------------------------


IMPLICIT NONE
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/)
!     -----------------------------------------------------------------
RETURN
END SUBROUTINE surrtpk