| 1 | SUBROUTINE SURRTPK |
|---|
| 2 | |
|---|
| 3 | ! Adapted from Eli J. Mlawer, Atmospheric & Environmental Research. |
|---|
| 4 | ! by JJMorcrette, ECMWF |
|---|
| 5 | ! ------------------------------------------------------------------ |
|---|
| 6 | |
|---|
| 7 | USE PARKIND1 ,ONLY : JPIM ,JPRB |
|---|
| 8 | USE YOMHOOK ,ONLY : LHOOK, DR_HOOK |
|---|
| 9 | |
|---|
| 10 | USE YOERRTWN , ONLY : NG ,NSPA ,NSPB ,WAVENUM1 ,& |
|---|
| 11 | & WAVENUM2 ,DELWAVE ,TOTPLNK ,TOTPLK16 |
|---|
| 12 | |
|---|
| 13 | ! ------------------------------------------------------------------ |
|---|
| 14 | |
|---|
| 15 | IMPLICIT NONE |
|---|
| 16 | REAL(KIND=JPRB) :: ZHOOK_HANDLE |
|---|
| 17 | IF (LHOOK) CALL DR_HOOK('SURRTPK',0,ZHOOK_HANDLE) |
|---|
| 18 | NG( :) = (/16,16,16,16,16,16,16,16,16,16,16,16,16,16,16,16/) |
|---|
| 19 | NSPA( :) = (/1, 1,10, 9, 9, 1, 9, 1,11, 1, 1, 9, 9, 1, 9, 9/) |
|---|
| 20 | NSPB( :) = (/1, 1, 5, 6, 5, 0, 1, 1, 1, 1, 1, 0, 0, 1, 0, 0/) |
|---|
| 21 | WAVENUM1( :) = (/& |
|---|
| 22 | & 10._JPRB, 250._JPRB, 500._JPRB, 630._JPRB, 700._JPRB, 820._JPRB, 980._JPRB,1080._JPRB & |
|---|
| 23 | & ,1180._JPRB,1390._JPRB,1480._JPRB,1800._JPRB,2080._JPRB,2250._JPRB,2380._JPRB,2600._JPRB/) |
|---|
| 24 | WAVENUM2( :) = (/& |
|---|
| 25 | & 250._JPRB, 500._JPRB, 630._JPRB, 700._JPRB, 820._JPRB, 980._JPRB,1080._JPRB,1180._JPRB & |
|---|
| 26 | & ,1390._JPRB,1480._JPRB,1800._JPRB,2080._JPRB,2250._JPRB,2380._JPRB,2600._JPRB,3000._JPRB/) |
|---|
| 27 | DELWAVE( :) = (/& |
|---|
| 28 | & 240._JPRB, 250._JPRB, 130._JPRB, 70._JPRB, 120._JPRB, 160._JPRB, 100._JPRB, 100._JPRB & |
|---|
| 29 | & , 210._JPRB, 90._JPRB, 320._JPRB, 280._JPRB, 170._JPRB, 130._JPRB, 220._JPRB, 400._JPRB/) |
|---|
| 30 | |
|---|
| 31 | TOTPLNK( :, 1) = (/& |
|---|
| 32 | & 1.13735E-06_JPRB,1.15150E-06_JPRB,1.16569E-06_JPRB,1.17992E-06_JPRB,1.19419E-06_JPRB,& |
|---|
| 33 | & 1.20850E-06_JPRB,1.22285E-06_JPRB,1.23723E-06_JPRB,1.25164E-06_JPRB,1.26610E-06_JPRB,& |
|---|
| 34 | & 1.28059E-06_JPRB,1.29511E-06_JPRB,1.30967E-06_JPRB,1.32426E-06_JPRB,1.33889E-06_JPRB,& |
|---|
| 35 | & 1.35355E-06_JPRB,1.36824E-06_JPRB,1.38296E-06_JPRB,1.39772E-06_JPRB,1.41250E-06_JPRB,& |
|---|
| 36 | & 1.42732E-06_JPRB,1.44217E-06_JPRB,1.45704E-06_JPRB,1.47195E-06_JPRB,1.48689E-06_JPRB,& |
|---|
| 37 | & 1.50185E-06_JPRB,1.51684E-06_JPRB,1.53186E-06_JPRB,1.54691E-06_JPRB,1.56198E-06_JPRB,& |
|---|
| 38 | & 1.57709E-06_JPRB,1.59222E-06_JPRB,1.60737E-06_JPRB,1.62255E-06_JPRB,1.63776E-06_JPRB,& |
|---|
| 39 | & 1.65299E-06_JPRB,1.66825E-06_JPRB,1.68352E-06_JPRB,1.69883E-06_JPRB,1.71416E-06_JPRB,& |
|---|
| 40 | & 1.72951E-06_JPRB,1.74488E-06_JPRB,1.76028E-06_JPRB,1.77570E-06_JPRB,1.79114E-06_JPRB,& |
|---|
| 41 | & 1.80661E-06_JPRB,1.82210E-06_JPRB,1.83760E-06_JPRB,1.85313E-06_JPRB,1.86868E-06_JPRB,& |
|---|
| 42 | & 1.88425E-06_JPRB,1.89985E-06_JPRB,1.91546E-06_JPRB,1.93109E-06_JPRB,1.94674E-06_JPRB,& |
|---|
| 43 | & 1.96241E-06_JPRB,1.97811E-06_JPRB,1.99381E-06_JPRB,2.00954E-06_JPRB,2.02529E-06_JPRB,& |
|---|
| 44 | & 2.04105E-06_JPRB,2.05684E-06_JPRB,2.07264E-06_JPRB,2.08846E-06_JPRB,2.10429E-06_JPRB,& |
|---|
| 45 | & 2.12015E-06_JPRB,2.13602E-06_JPRB,2.15190E-06_JPRB,2.16781E-06_JPRB,2.18373E-06_JPRB,& |
|---|
| 46 | & 2.19966E-06_JPRB,2.21562E-06_JPRB,2.23159E-06_JPRB,2.24758E-06_JPRB,2.26358E-06_JPRB,& |
|---|
| 47 | & 2.27959E-06_JPRB,2.29562E-06_JPRB,2.31167E-06_JPRB,2.32773E-06_JPRB,2.34381E-06_JPRB,& |
|---|
| 48 | & 2.35990E-06_JPRB,2.37601E-06_JPRB,2.39212E-06_JPRB,2.40825E-06_JPRB,2.42440E-06_JPRB,& |
|---|
| 49 | & 2.44056E-06_JPRB,2.45673E-06_JPRB,2.47292E-06_JPRB,2.48912E-06_JPRB,2.50533E-06_JPRB,& |
|---|
| 50 | & 2.52157E-06_JPRB,2.53781E-06_JPRB,2.55406E-06_JPRB,2.57032E-06_JPRB,2.58660E-06_JPRB,& |
|---|
| 51 | & 2.60289E-06_JPRB,2.61919E-06_JPRB,2.63550E-06_JPRB,2.65183E-06_JPRB,2.66817E-06_JPRB,& |
|---|
| 52 | & 2.68452E-06_JPRB,2.70088E-06_JPRB,2.71726E-06_JPRB,2.73364E-06_JPRB,2.75003E-06_JPRB,& |
|---|
| 53 | & 2.76644E-06_JPRB,2.78286E-06_JPRB,2.79929E-06_JPRB,2.81572E-06_JPRB,2.83218E-06_JPRB,& |
|---|
| 54 | & 2.84864E-06_JPRB,2.86510E-06_JPRB,2.88159E-06_JPRB,2.89807E-06_JPRB,2.91458E-06_JPRB,& |
|---|
| 55 | & 2.93109E-06_JPRB,2.94762E-06_JPRB,2.96415E-06_JPRB,2.98068E-06_JPRB,2.99724E-06_JPRB,& |
|---|
| 56 | & 3.01379E-06_JPRB,3.03036E-06_JPRB,3.04693E-06_JPRB,3.06353E-06_JPRB,3.08013E-06_JPRB,& |
|---|
| 57 | & 3.09674E-06_JPRB,3.11335E-06_JPRB,3.12998E-06_JPRB,3.14661E-06_JPRB,3.16324E-06_JPRB,& |
|---|
| 58 | & 3.17989E-06_JPRB,3.19656E-06_JPRB,3.21323E-06_JPRB,3.22991E-06_JPRB,3.24658E-06_JPRB,& |
|---|
| 59 | & 3.26328E-06_JPRB,3.27998E-06_JPRB,3.29669E-06_JPRB,3.31341E-06_JPRB,3.33013E-06_JPRB,& |
|---|
| 60 | & 3.34686E-06_JPRB,3.36360E-06_JPRB,3.38034E-06_JPRB,3.39709E-06_JPRB,3.41387E-06_JPRB,& |
|---|
| 61 | & 3.43063E-06_JPRB,3.44742E-06_JPRB,3.46420E-06_JPRB,3.48099E-06_JPRB,3.49779E-06_JPRB,& |
|---|
| 62 | & 3.51461E-06_JPRB,3.53141E-06_JPRB,3.54824E-06_JPRB,3.56506E-06_JPRB,3.58191E-06_JPRB,& |
|---|
| 63 | & 3.59875E-06_JPRB,3.61559E-06_JPRB,3.63244E-06_JPRB,3.64931E-06_JPRB,3.66617E-06_JPRB,& |
|---|
| 64 | & 3.68305E-06_JPRB,3.69992E-06_JPRB,3.71682E-06_JPRB,3.73372E-06_JPRB,3.75061E-06_JPRB,& |
|---|
| 65 | & 3.76753E-06_JPRB,3.78443E-06_JPRB,3.80136E-06_JPRB,3.81829E-06_JPRB,3.83522E-06_JPRB,& |
|---|
| 66 | & 3.85215E-06_JPRB,3.86910E-06_JPRB,3.88605E-06_JPRB,3.90301E-06_JPRB,3.91997E-06_JPRB,& |
|---|
| 67 | & 3.93694E-06_JPRB,3.95390E-06_JPRB,3.97087E-06_JPRB,3.98788E-06_JPRB,4.00485E-06_JPRB,& |
|---|
| 68 | & 4.02187E-06_JPRB/) |
|---|
| 69 | |
|---|
| 70 | TOTPLNK( :, 2) = (/& |
|---|
| 71 | & 2.13441E-06_JPRB,2.18076E-06_JPRB,2.22758E-06_JPRB,2.27489E-06_JPRB,2.32268E-06_JPRB,& |
|---|
| 72 | & 2.37093E-06_JPRB,2.41966E-06_JPRB,2.46886E-06_JPRB,2.51852E-06_JPRB,2.56864E-06_JPRB,& |
|---|
| 73 | & 2.61922E-06_JPRB,2.67026E-06_JPRB,2.72175E-06_JPRB,2.77370E-06_JPRB,2.82609E-06_JPRB,& |
|---|
| 74 | & 2.87893E-06_JPRB,2.93221E-06_JPRB,2.98593E-06_JPRB,3.04008E-06_JPRB,3.09468E-06_JPRB,& |
|---|
| 75 | & 3.14970E-06_JPRB,3.20515E-06_JPRB,3.26103E-06_JPRB,3.31732E-06_JPRB,3.37404E-06_JPRB,& |
|---|
| 76 | & 3.43118E-06_JPRB,3.48873E-06_JPRB,3.54669E-06_JPRB,3.60506E-06_JPRB,3.66383E-06_JPRB,& |
|---|
| 77 | & 3.72301E-06_JPRB,3.78259E-06_JPRB,3.84256E-06_JPRB,3.90293E-06_JPRB,3.96368E-06_JPRB,& |
|---|
| 78 | & 4.02483E-06_JPRB,4.08636E-06_JPRB,4.14828E-06_JPRB,4.21057E-06_JPRB,4.27324E-06_JPRB,& |
|---|
| 79 | & 4.33629E-06_JPRB,4.39971E-06_JPRB,4.46350E-06_JPRB,4.52765E-06_JPRB,4.59217E-06_JPRB,& |
|---|
| 80 | & 4.65705E-06_JPRB,4.72228E-06_JPRB,4.78787E-06_JPRB,4.85382E-06_JPRB,4.92011E-06_JPRB,& |
|---|
| 81 | & 4.98675E-06_JPRB,5.05374E-06_JPRB,5.12106E-06_JPRB,5.18873E-06_JPRB,5.25674E-06_JPRB,& |
|---|
| 82 | & 5.32507E-06_JPRB,5.39374E-06_JPRB,5.46274E-06_JPRB,5.53207E-06_JPRB,5.60172E-06_JPRB,& |
|---|
| 83 | & 5.67169E-06_JPRB,5.74198E-06_JPRB,5.81259E-06_JPRB,5.88352E-06_JPRB,5.95475E-06_JPRB,& |
|---|
| 84 | & 6.02629E-06_JPRB,6.09815E-06_JPRB,6.17030E-06_JPRB,6.24276E-06_JPRB,6.31552E-06_JPRB,& |
|---|
| 85 | & 6.38858E-06_JPRB,6.46192E-06_JPRB,6.53557E-06_JPRB,6.60950E-06_JPRB,6.68373E-06_JPRB,& |
|---|
| 86 | & 6.75824E-06_JPRB,6.83303E-06_JPRB,6.90810E-06_JPRB,6.98346E-06_JPRB,7.05909E-06_JPRB,& |
|---|
| 87 | & 7.13500E-06_JPRB,7.21117E-06_JPRB,7.28763E-06_JPRB,7.36435E-06_JPRB,7.44134E-06_JPRB,& |
|---|
| 88 | & 7.51859E-06_JPRB,7.59611E-06_JPRB,7.67388E-06_JPRB,7.75192E-06_JPRB,7.83021E-06_JPRB,& |
|---|
| 89 | & 7.90875E-06_JPRB,7.98755E-06_JPRB,8.06660E-06_JPRB,8.14589E-06_JPRB,8.22544E-06_JPRB,& |
|---|
| 90 | & 8.30522E-06_JPRB,8.38526E-06_JPRB,8.46553E-06_JPRB,8.54604E-06_JPRB,8.62679E-06_JPRB,& |
|---|
| 91 | & 8.70777E-06_JPRB,8.78899E-06_JPRB,8.87043E-06_JPRB,8.95211E-06_JPRB,9.03402E-06_JPRB,& |
|---|
| 92 | & 9.11616E-06_JPRB,9.19852E-06_JPRB,9.28109E-06_JPRB,9.36390E-06_JPRB,9.44692E-06_JPRB,& |
|---|
| 93 | & 9.53015E-06_JPRB,9.61361E-06_JPRB,9.69729E-06_JPRB,9.78117E-06_JPRB,9.86526E-06_JPRB,& |
|---|
| 94 | & 9.94957E-06_JPRB,1.00341E-05_JPRB,1.01188E-05_JPRB,1.02037E-05_JPRB,1.02888E-05_JPRB,& |
|---|
| 95 | & 1.03742E-05_JPRB,1.04597E-05_JPRB,1.05454E-05_JPRB,1.06313E-05_JPRB,1.07175E-05_JPRB,& |
|---|
| 96 | & 1.08038E-05_JPRB,1.08903E-05_JPRB,1.09770E-05_JPRB,1.10639E-05_JPRB,1.11509E-05_JPRB,& |
|---|
| 97 | & 1.12382E-05_JPRB,1.13257E-05_JPRB,1.14133E-05_JPRB,1.15011E-05_JPRB,1.15891E-05_JPRB,& |
|---|
| 98 | & 1.16773E-05_JPRB,1.17656E-05_JPRB,1.18542E-05_JPRB,1.19429E-05_JPRB,1.20317E-05_JPRB,& |
|---|
| 99 | & 1.21208E-05_JPRB,1.22100E-05_JPRB,1.22994E-05_JPRB,1.23890E-05_JPRB,1.24787E-05_JPRB,& |
|---|
| 100 | & 1.25686E-05_JPRB,1.26587E-05_JPRB,1.27489E-05_JPRB,1.28393E-05_JPRB,1.29299E-05_JPRB,& |
|---|
| 101 | & 1.30206E-05_JPRB,1.31115E-05_JPRB,1.32025E-05_JPRB,1.32937E-05_JPRB,1.33850E-05_JPRB,& |
|---|
| 102 | & 1.34765E-05_JPRB,1.35682E-05_JPRB,1.36600E-05_JPRB,1.37520E-05_JPRB,1.38441E-05_JPRB,& |
|---|
| 103 | & 1.39364E-05_JPRB,1.40288E-05_JPRB,1.41213E-05_JPRB,1.42140E-05_JPRB,1.43069E-05_JPRB,& |
|---|
| 104 | & 1.43999E-05_JPRB,1.44930E-05_JPRB,1.45863E-05_JPRB,1.46797E-05_JPRB,1.47733E-05_JPRB,& |
|---|
| 105 | & 1.48670E-05_JPRB,1.49608E-05_JPRB,1.50548E-05_JPRB,1.51489E-05_JPRB,1.52431E-05_JPRB,& |
|---|
| 106 | & 1.53375E-05_JPRB,1.54320E-05_JPRB,1.55267E-05_JPRB,1.56214E-05_JPRB,1.57164E-05_JPRB,& |
|---|
| 107 | & 1.58114E-05_JPRB/) |
|---|
| 108 | |
|---|
| 109 | TOTPLNK( :, 3) = (/& |
|---|
| 110 | & 1.34822E-06_JPRB,1.39134E-06_JPRB,1.43530E-06_JPRB,1.48010E-06_JPRB,1.52574E-06_JPRB,& |
|---|
| 111 | & 1.57222E-06_JPRB,1.61956E-06_JPRB,1.66774E-06_JPRB,1.71678E-06_JPRB,1.76666E-06_JPRB,& |
|---|
| 112 | & 1.81741E-06_JPRB,1.86901E-06_JPRB,1.92147E-06_JPRB,1.97479E-06_JPRB,2.02898E-06_JPRB,& |
|---|
| 113 | & 2.08402E-06_JPRB,2.13993E-06_JPRB,2.19671E-06_JPRB,2.25435E-06_JPRB,2.31285E-06_JPRB,& |
|---|
| 114 | & 2.37222E-06_JPRB,2.43246E-06_JPRB,2.49356E-06_JPRB,2.55553E-06_JPRB,2.61837E-06_JPRB,& |
|---|
| 115 | & 2.68207E-06_JPRB,2.74664E-06_JPRB,2.81207E-06_JPRB,2.87837E-06_JPRB,2.94554E-06_JPRB,& |
|---|
| 116 | & 3.01356E-06_JPRB,3.08245E-06_JPRB,3.15221E-06_JPRB,3.22282E-06_JPRB,3.29429E-06_JPRB,& |
|---|
| 117 | & 3.36662E-06_JPRB,3.43982E-06_JPRB,3.51386E-06_JPRB,3.58876E-06_JPRB,3.66451E-06_JPRB,& |
|---|
| 118 | & 3.74112E-06_JPRB,3.81857E-06_JPRB,3.89688E-06_JPRB,3.97602E-06_JPRB,4.05601E-06_JPRB,& |
|---|
| 119 | & 4.13685E-06_JPRB,4.21852E-06_JPRB,4.30104E-06_JPRB,4.38438E-06_JPRB,4.46857E-06_JPRB,& |
|---|
| 120 | & 4.55358E-06_JPRB,4.63943E-06_JPRB,4.72610E-06_JPRB,4.81359E-06_JPRB,4.90191E-06_JPRB,& |
|---|
| 121 | & 4.99105E-06_JPRB,5.08100E-06_JPRB,5.17176E-06_JPRB,5.26335E-06_JPRB,5.35573E-06_JPRB,& |
|---|
| 122 | & 5.44892E-06_JPRB,5.54292E-06_JPRB,5.63772E-06_JPRB,5.73331E-06_JPRB,5.82970E-06_JPRB,& |
|---|
| 123 | & 5.92688E-06_JPRB,6.02485E-06_JPRB,6.12360E-06_JPRB,6.22314E-06_JPRB,6.32346E-06_JPRB,& |
|---|
| 124 | & 6.42455E-06_JPRB,6.52641E-06_JPRB,6.62906E-06_JPRB,6.73247E-06_JPRB,6.83664E-06_JPRB,& |
|---|
| 125 | & 6.94156E-06_JPRB,7.04725E-06_JPRB,7.15370E-06_JPRB,7.26089E-06_JPRB,7.36883E-06_JPRB,& |
|---|
| 126 | & 7.47752E-06_JPRB,7.58695E-06_JPRB,7.69712E-06_JPRB,7.80801E-06_JPRB,7.91965E-06_JPRB,& |
|---|
| 127 | & 8.03201E-06_JPRB,8.14510E-06_JPRB,8.25891E-06_JPRB,8.37343E-06_JPRB,8.48867E-06_JPRB,& |
|---|
| 128 | & 8.60463E-06_JPRB,8.72128E-06_JPRB,8.83865E-06_JPRB,8.95672E-06_JPRB,9.07548E-06_JPRB,& |
|---|
| 129 | & 9.19495E-06_JPRB,9.31510E-06_JPRB,9.43594E-06_JPRB,9.55745E-06_JPRB,9.67966E-06_JPRB,& |
|---|
| 130 | & 9.80254E-06_JPRB,9.92609E-06_JPRB,1.00503E-05_JPRB,1.01752E-05_JPRB,1.03008E-05_JPRB,& |
|---|
| 131 | & 1.04270E-05_JPRB,1.05539E-05_JPRB,1.06814E-05_JPRB,1.08096E-05_JPRB,1.09384E-05_JPRB,& |
|---|
| 132 | & 1.10679E-05_JPRB,1.11980E-05_JPRB,1.13288E-05_JPRB,1.14601E-05_JPRB,1.15922E-05_JPRB,& |
|---|
| 133 | & 1.17248E-05_JPRB,1.18581E-05_JPRB,1.19920E-05_JPRB,1.21265E-05_JPRB,1.22616E-05_JPRB,& |
|---|
| 134 | & 1.23973E-05_JPRB,1.25337E-05_JPRB,1.26706E-05_JPRB,1.28081E-05_JPRB,1.29463E-05_JPRB,& |
|---|
| 135 | & 1.30850E-05_JPRB,1.32243E-05_JPRB,1.33642E-05_JPRB,1.35047E-05_JPRB,1.36458E-05_JPRB,& |
|---|
| 136 | & 1.37875E-05_JPRB,1.39297E-05_JPRB,1.40725E-05_JPRB,1.42159E-05_JPRB,1.43598E-05_JPRB,& |
|---|
| 137 | & 1.45044E-05_JPRB,1.46494E-05_JPRB,1.47950E-05_JPRB,1.49412E-05_JPRB,1.50879E-05_JPRB,& |
|---|
| 138 | & 1.52352E-05_JPRB,1.53830E-05_JPRB,1.55314E-05_JPRB,1.56803E-05_JPRB,1.58297E-05_JPRB,& |
|---|
| 139 | & 1.59797E-05_JPRB,1.61302E-05_JPRB,1.62812E-05_JPRB,1.64327E-05_JPRB,1.65848E-05_JPRB,& |
|---|
| 140 | & 1.67374E-05_JPRB,1.68904E-05_JPRB,1.70441E-05_JPRB,1.71982E-05_JPRB,1.73528E-05_JPRB,& |
|---|
| 141 | & 1.75079E-05_JPRB,1.76635E-05_JPRB,1.78197E-05_JPRB,1.79763E-05_JPRB,1.81334E-05_JPRB,& |
|---|
| 142 | & 1.82910E-05_JPRB,1.84491E-05_JPRB,1.86076E-05_JPRB,1.87667E-05_JPRB,1.89262E-05_JPRB,& |
|---|
| 143 | & 1.90862E-05_JPRB,1.92467E-05_JPRB,1.94076E-05_JPRB,1.95690E-05_JPRB,1.97309E-05_JPRB,& |
|---|
| 144 | & 1.98932E-05_JPRB,2.00560E-05_JPRB,2.02193E-05_JPRB,2.03830E-05_JPRB,2.05472E-05_JPRB,& |
|---|
| 145 | & 2.07118E-05_JPRB,2.08768E-05_JPRB,2.10423E-05_JPRB,2.12083E-05_JPRB,2.13747E-05_JPRB,& |
|---|
| 146 | & 2.15414E-05_JPRB/) |
|---|
| 147 | |
|---|
| 148 | TOTPLNK( :, 4) = (/& |
|---|
| 149 | & 8.90528E-07_JPRB,9.24222E-07_JPRB,9.58757E-07_JPRB,9.94141E-07_JPRB,1.03038E-06_JPRB,& |
|---|
| 150 | & 1.06748E-06_JPRB,1.10545E-06_JPRB,1.14430E-06_JPRB,1.18403E-06_JPRB,1.22465E-06_JPRB,& |
|---|
| 151 | & 1.26618E-06_JPRB,1.30860E-06_JPRB,1.35193E-06_JPRB,1.39619E-06_JPRB,1.44136E-06_JPRB,& |
|---|
| 152 | & 1.48746E-06_JPRB,1.53449E-06_JPRB,1.58246E-06_JPRB,1.63138E-06_JPRB,1.68124E-06_JPRB,& |
|---|
| 153 | & 1.73206E-06_JPRB,1.78383E-06_JPRB,1.83657E-06_JPRB,1.89028E-06_JPRB,1.94495E-06_JPRB,& |
|---|
| 154 | & 2.00060E-06_JPRB,2.05724E-06_JPRB,2.11485E-06_JPRB,2.17344E-06_JPRB,2.23303E-06_JPRB,& |
|---|
| 155 | & 2.29361E-06_JPRB,2.35519E-06_JPRB,2.41777E-06_JPRB,2.48134E-06_JPRB,2.54592E-06_JPRB,& |
|---|
| 156 | & 2.61151E-06_JPRB,2.67810E-06_JPRB,2.74571E-06_JPRB,2.81433E-06_JPRB,2.88396E-06_JPRB,& |
|---|
| 157 | & 2.95461E-06_JPRB,3.02628E-06_JPRB,3.09896E-06_JPRB,3.17267E-06_JPRB,3.24741E-06_JPRB,& |
|---|
| 158 | & 3.32316E-06_JPRB,3.39994E-06_JPRB,3.47774E-06_JPRB,3.55657E-06_JPRB,3.63642E-06_JPRB,& |
|---|
| 159 | & 3.71731E-06_JPRB,3.79922E-06_JPRB,3.88216E-06_JPRB,3.96612E-06_JPRB,4.05112E-06_JPRB,& |
|---|
| 160 | & 4.13714E-06_JPRB,4.22419E-06_JPRB,4.31227E-06_JPRB,4.40137E-06_JPRB,4.49151E-06_JPRB,& |
|---|
| 161 | & 4.58266E-06_JPRB,4.67485E-06_JPRB,4.76806E-06_JPRB,4.86229E-06_JPRB,4.95754E-06_JPRB,& |
|---|
| 162 | & 5.05383E-06_JPRB,5.15113E-06_JPRB,5.24946E-06_JPRB,5.34879E-06_JPRB,5.44916E-06_JPRB,& |
|---|
| 163 | & 5.55053E-06_JPRB,5.65292E-06_JPRB,5.75632E-06_JPRB,5.86073E-06_JPRB,5.96616E-06_JPRB,& |
|---|
| 164 | & 6.07260E-06_JPRB,6.18003E-06_JPRB,6.28848E-06_JPRB,6.39794E-06_JPRB,6.50838E-06_JPRB,& |
|---|
| 165 | & 6.61983E-06_JPRB,6.73229E-06_JPRB,6.84573E-06_JPRB,6.96016E-06_JPRB,7.07559E-06_JPRB,& |
|---|
| 166 | & 7.19200E-06_JPRB,7.30940E-06_JPRB,7.42779E-06_JPRB,7.54715E-06_JPRB,7.66749E-06_JPRB,& |
|---|
| 167 | & 7.78882E-06_JPRB,7.91110E-06_JPRB,8.03436E-06_JPRB,8.15859E-06_JPRB,8.28379E-06_JPRB,& |
|---|
| 168 | & 8.40994E-06_JPRB,8.53706E-06_JPRB,8.66515E-06_JPRB,8.79418E-06_JPRB,8.92416E-06_JPRB,& |
|---|
| 169 | & 9.05510E-06_JPRB,9.18697E-06_JPRB,9.31979E-06_JPRB,9.45356E-06_JPRB,9.58826E-06_JPRB,& |
|---|
| 170 | & 9.72389E-06_JPRB,9.86046E-06_JPRB,9.99793E-06_JPRB,1.01364E-05_JPRB,1.02757E-05_JPRB,& |
|---|
| 171 | & 1.04159E-05_JPRB,1.05571E-05_JPRB,1.06992E-05_JPRB,1.08422E-05_JPRB,1.09861E-05_JPRB,& |
|---|
| 172 | & 1.11309E-05_JPRB,1.12766E-05_JPRB,1.14232E-05_JPRB,1.15707E-05_JPRB,1.17190E-05_JPRB,& |
|---|
| 173 | & 1.18683E-05_JPRB,1.20184E-05_JPRB,1.21695E-05_JPRB,1.23214E-05_JPRB,1.24741E-05_JPRB,& |
|---|
| 174 | & 1.26277E-05_JPRB,1.27822E-05_JPRB,1.29376E-05_JPRB,1.30939E-05_JPRB,1.32509E-05_JPRB,& |
|---|
| 175 | & 1.34088E-05_JPRB,1.35676E-05_JPRB,1.37273E-05_JPRB,1.38877E-05_JPRB,1.40490E-05_JPRB,& |
|---|
| 176 | & 1.42112E-05_JPRB,1.43742E-05_JPRB,1.45380E-05_JPRB,1.47026E-05_JPRB,1.48680E-05_JPRB,& |
|---|
| 177 | & 1.50343E-05_JPRB,1.52014E-05_JPRB,1.53692E-05_JPRB,1.55379E-05_JPRB,1.57074E-05_JPRB,& |
|---|
| 178 | & 1.58778E-05_JPRB,1.60488E-05_JPRB,1.62207E-05_JPRB,1.63934E-05_JPRB,1.65669E-05_JPRB,& |
|---|
| 179 | & 1.67411E-05_JPRB,1.69162E-05_JPRB,1.70920E-05_JPRB,1.72685E-05_JPRB,1.74459E-05_JPRB,& |
|---|
| 180 | & 1.76240E-05_JPRB,1.78029E-05_JPRB,1.79825E-05_JPRB,1.81629E-05_JPRB,1.83440E-05_JPRB,& |
|---|
| 181 | & 1.85259E-05_JPRB,1.87086E-05_JPRB,1.88919E-05_JPRB,1.90760E-05_JPRB,1.92609E-05_JPRB,& |
|---|
| 182 | & 1.94465E-05_JPRB,1.96327E-05_JPRB,1.98199E-05_JPRB,2.00076E-05_JPRB,2.01961E-05_JPRB,& |
|---|
| 183 | & 2.03853E-05_JPRB,2.05752E-05_JPRB,2.07658E-05_JPRB,2.09571E-05_JPRB,2.11491E-05_JPRB,& |
|---|
| 184 | & 2.13418E-05_JPRB,2.15352E-05_JPRB,2.17294E-05_JPRB,2.19241E-05_JPRB,2.21196E-05_JPRB,& |
|---|
| 185 | & 2.23158E-05_JPRB/) |
|---|
| 186 | |
|---|
| 187 | TOTPLNK( :, 5) = (/& |
|---|
| 188 | & 5.70230E-07_JPRB,5.94788E-07_JPRB,6.20085E-07_JPRB,6.46130E-07_JPRB,6.72936E-07_JPRB,& |
|---|
| 189 | & 7.00512E-07_JPRB,7.28869E-07_JPRB,7.58019E-07_JPRB,7.87971E-07_JPRB,8.18734E-07_JPRB,& |
|---|
| 190 | & 8.50320E-07_JPRB,8.82738E-07_JPRB,9.15999E-07_JPRB,9.50110E-07_JPRB,9.85084E-07_JPRB,& |
|---|
| 191 | & 1.02093E-06_JPRB,1.05765E-06_JPRB,1.09527E-06_JPRB,1.13378E-06_JPRB,1.17320E-06_JPRB,& |
|---|
| 192 | & 1.21353E-06_JPRB,1.25479E-06_JPRB,1.29698E-06_JPRB,1.34011E-06_JPRB,1.38419E-06_JPRB,& |
|---|
| 193 | & 1.42923E-06_JPRB,1.47523E-06_JPRB,1.52221E-06_JPRB,1.57016E-06_JPRB,1.61910E-06_JPRB,& |
|---|
| 194 | & 1.66904E-06_JPRB,1.71997E-06_JPRB,1.77192E-06_JPRB,1.82488E-06_JPRB,1.87886E-06_JPRB,& |
|---|
| 195 | & 1.93387E-06_JPRB,1.98991E-06_JPRB,2.04699E-06_JPRB,2.10512E-06_JPRB,2.16430E-06_JPRB,& |
|---|
| 196 | & 2.22454E-06_JPRB,2.28584E-06_JPRB,2.34821E-06_JPRB,2.41166E-06_JPRB,2.47618E-06_JPRB,& |
|---|
| 197 | & 2.54178E-06_JPRB,2.60847E-06_JPRB,2.67626E-06_JPRB,2.74514E-06_JPRB,2.81512E-06_JPRB,& |
|---|
| 198 | & 2.88621E-06_JPRB,2.95841E-06_JPRB,3.03172E-06_JPRB,3.10615E-06_JPRB,3.18170E-06_JPRB,& |
|---|
| 199 | & 3.25838E-06_JPRB,3.33618E-06_JPRB,3.41511E-06_JPRB,3.49518E-06_JPRB,3.57639E-06_JPRB,& |
|---|
| 200 | & 3.65873E-06_JPRB,3.74221E-06_JPRB,3.82684E-06_JPRB,3.91262E-06_JPRB,3.99955E-06_JPRB,& |
|---|
| 201 | & 4.08763E-06_JPRB,4.17686E-06_JPRB,4.26725E-06_JPRB,4.35880E-06_JPRB,4.45150E-06_JPRB,& |
|---|
| 202 | & 4.54537E-06_JPRB,4.64039E-06_JPRB,4.73659E-06_JPRB,4.83394E-06_JPRB,4.93246E-06_JPRB,& |
|---|
| 203 | & 5.03215E-06_JPRB,5.13301E-06_JPRB,5.23504E-06_JPRB,5.33823E-06_JPRB,5.44260E-06_JPRB,& |
|---|
| 204 | & 5.54814E-06_JPRB,5.65484E-06_JPRB,5.76272E-06_JPRB,5.87177E-06_JPRB,5.98199E-06_JPRB,& |
|---|
| 205 | & 6.09339E-06_JPRB,6.20596E-06_JPRB,6.31969E-06_JPRB,6.43460E-06_JPRB,6.55068E-06_JPRB,& |
|---|
| 206 | & 6.66793E-06_JPRB,6.78636E-06_JPRB,6.90595E-06_JPRB,7.02670E-06_JPRB,7.14863E-06_JPRB,& |
|---|
| 207 | & 7.27173E-06_JPRB,7.39599E-06_JPRB,7.52142E-06_JPRB,7.64802E-06_JPRB,7.77577E-06_JPRB,& |
|---|
| 208 | & 7.90469E-06_JPRB,8.03477E-06_JPRB,8.16601E-06_JPRB,8.29841E-06_JPRB,8.43198E-06_JPRB,& |
|---|
| 209 | & 8.56669E-06_JPRB,8.70256E-06_JPRB,8.83957E-06_JPRB,8.97775E-06_JPRB,9.11706E-06_JPRB,& |
|---|
| 210 | & 9.25753E-06_JPRB,9.39915E-06_JPRB,9.54190E-06_JPRB,9.68580E-06_JPRB,9.83085E-06_JPRB,& |
|---|
| 211 | & 9.97704E-06_JPRB,1.01243E-05_JPRB,1.02728E-05_JPRB,1.04224E-05_JPRB,1.05731E-05_JPRB,& |
|---|
| 212 | & 1.07249E-05_JPRB,1.08779E-05_JPRB,1.10320E-05_JPRB,1.11872E-05_JPRB,1.13435E-05_JPRB,& |
|---|
| 213 | & 1.15009E-05_JPRB,1.16595E-05_JPRB,1.18191E-05_JPRB,1.19799E-05_JPRB,1.21418E-05_JPRB,& |
|---|
| 214 | & 1.23048E-05_JPRB,1.24688E-05_JPRB,1.26340E-05_JPRB,1.28003E-05_JPRB,1.29676E-05_JPRB,& |
|---|
| 215 | & 1.31361E-05_JPRB,1.33056E-05_JPRB,1.34762E-05_JPRB,1.36479E-05_JPRB,1.38207E-05_JPRB,& |
|---|
| 216 | & 1.39945E-05_JPRB,1.41694E-05_JPRB,1.43454E-05_JPRB,1.45225E-05_JPRB,1.47006E-05_JPRB,& |
|---|
| 217 | & 1.48797E-05_JPRB,1.50600E-05_JPRB,1.52413E-05_JPRB,1.54236E-05_JPRB,1.56070E-05_JPRB,& |
|---|
| 218 | & 1.57914E-05_JPRB,1.59768E-05_JPRB,1.61633E-05_JPRB,1.63509E-05_JPRB,1.65394E-05_JPRB,& |
|---|
| 219 | & 1.67290E-05_JPRB,1.69197E-05_JPRB,1.71113E-05_JPRB,1.73040E-05_JPRB,1.74976E-05_JPRB,& |
|---|
| 220 | & 1.76923E-05_JPRB,1.78880E-05_JPRB,1.80847E-05_JPRB,1.82824E-05_JPRB,1.84811E-05_JPRB,& |
|---|
| 221 | & 1.86808E-05_JPRB,1.88814E-05_JPRB,1.90831E-05_JPRB,1.92857E-05_JPRB,1.94894E-05_JPRB,& |
|---|
| 222 | & 1.96940E-05_JPRB,1.98996E-05_JPRB,2.01061E-05_JPRB,2.03136E-05_JPRB,2.05221E-05_JPRB,& |
|---|
| 223 | & 2.07316E-05_JPRB,2.09420E-05_JPRB,2.11533E-05_JPRB,2.13657E-05_JPRB,2.15789E-05_JPRB,& |
|---|
| 224 | & 2.17931E-05_JPRB/) |
|---|
| 225 | |
|---|
| 226 | TOTPLNK( :, 6) = (/& |
|---|
| 227 | & 2.73493E-07_JPRB,2.87408E-07_JPRB,3.01848E-07_JPRB,3.16825E-07_JPRB,3.32352E-07_JPRB,& |
|---|
| 228 | & 3.48439E-07_JPRB,3.65100E-07_JPRB,3.82346E-07_JPRB,4.00189E-07_JPRB,4.18641E-07_JPRB,& |
|---|
| 229 | & 4.37715E-07_JPRB,4.57422E-07_JPRB,4.77774E-07_JPRB,4.98784E-07_JPRB,5.20464E-07_JPRB,& |
|---|
| 230 | & 5.42824E-07_JPRB,5.65879E-07_JPRB,5.89638E-07_JPRB,6.14115E-07_JPRB,6.39320E-07_JPRB,& |
|---|
| 231 | & 6.65266E-07_JPRB,6.91965E-07_JPRB,7.19427E-07_JPRB,7.47666E-07_JPRB,7.76691E-07_JPRB,& |
|---|
| 232 | & 8.06516E-07_JPRB,8.37151E-07_JPRB,8.68607E-07_JPRB,9.00896E-07_JPRB,9.34029E-07_JPRB,& |
|---|
| 233 | & 9.68018E-07_JPRB,1.00287E-06_JPRB,1.03860E-06_JPRB,1.07522E-06_JPRB,1.11274E-06_JPRB,& |
|---|
| 234 | & 1.15117E-06_JPRB,1.19052E-06_JPRB,1.23079E-06_JPRB,1.27201E-06_JPRB,1.31418E-06_JPRB,& |
|---|
| 235 | & 1.35731E-06_JPRB,1.40141E-06_JPRB,1.44650E-06_JPRB,1.49257E-06_JPRB,1.53965E-06_JPRB,& |
|---|
| 236 | & 1.58773E-06_JPRB,1.63684E-06_JPRB,1.68697E-06_JPRB,1.73815E-06_JPRB,1.79037E-06_JPRB,& |
|---|
| 237 | & 1.84365E-06_JPRB,1.89799E-06_JPRB,1.95341E-06_JPRB,2.00991E-06_JPRB,2.06750E-06_JPRB,& |
|---|
| 238 | & 2.12619E-06_JPRB,2.18599E-06_JPRB,2.24691E-06_JPRB,2.30895E-06_JPRB,2.37212E-06_JPRB,& |
|---|
| 239 | & 2.43643E-06_JPRB,2.50189E-06_JPRB,2.56851E-06_JPRB,2.63628E-06_JPRB,2.70523E-06_JPRB,& |
|---|
| 240 | & 2.77536E-06_JPRB,2.84666E-06_JPRB,2.91916E-06_JPRB,2.99286E-06_JPRB,3.06776E-06_JPRB,& |
|---|
| 241 | & 3.14387E-06_JPRB,3.22120E-06_JPRB,3.29975E-06_JPRB,3.37953E-06_JPRB,3.46054E-06_JPRB,& |
|---|
| 242 | & 3.54280E-06_JPRB,3.62630E-06_JPRB,3.71105E-06_JPRB,3.79707E-06_JPRB,3.88434E-06_JPRB,& |
|---|
| 243 | & 3.97288E-06_JPRB,4.06270E-06_JPRB,4.15380E-06_JPRB,4.24617E-06_JPRB,4.33984E-06_JPRB,& |
|---|
| 244 | & 4.43479E-06_JPRB,4.53104E-06_JPRB,4.62860E-06_JPRB,4.72746E-06_JPRB,4.82763E-06_JPRB,& |
|---|
| 245 | & 4.92911E-06_JPRB,5.03191E-06_JPRB,5.13603E-06_JPRB,5.24147E-06_JPRB,5.34824E-06_JPRB,& |
|---|
| 246 | & 5.45634E-06_JPRB,5.56578E-06_JPRB,5.67656E-06_JPRB,5.78867E-06_JPRB,5.90213E-06_JPRB,& |
|---|
| 247 | & 6.01694E-06_JPRB,6.13309E-06_JPRB,6.25060E-06_JPRB,6.36947E-06_JPRB,6.48968E-06_JPRB,& |
|---|
| 248 | & 6.61126E-06_JPRB,6.73420E-06_JPRB,6.85850E-06_JPRB,6.98417E-06_JPRB,7.11120E-06_JPRB,& |
|---|
| 249 | & 7.23961E-06_JPRB,7.36938E-06_JPRB,7.50053E-06_JPRB,7.63305E-06_JPRB,7.76694E-06_JPRB,& |
|---|
| 250 | & 7.90221E-06_JPRB,8.03887E-06_JPRB,8.17690E-06_JPRB,8.31632E-06_JPRB,8.45710E-06_JPRB,& |
|---|
| 251 | & 8.59928E-06_JPRB,8.74282E-06_JPRB,8.88776E-06_JPRB,9.03409E-06_JPRB,9.18179E-06_JPRB,& |
|---|
| 252 | & 9.33088E-06_JPRB,9.48136E-06_JPRB,9.63323E-06_JPRB,9.78648E-06_JPRB,9.94111E-06_JPRB,& |
|---|
| 253 | & 1.00971E-05_JPRB,1.02545E-05_JPRB,1.04133E-05_JPRB,1.05735E-05_JPRB,1.07351E-05_JPRB,& |
|---|
| 254 | & 1.08980E-05_JPRB,1.10624E-05_JPRB,1.12281E-05_JPRB,1.13952E-05_JPRB,1.15637E-05_JPRB,& |
|---|
| 255 | & 1.17335E-05_JPRB,1.19048E-05_JPRB,1.20774E-05_JPRB,1.22514E-05_JPRB,1.24268E-05_JPRB,& |
|---|
| 256 | & 1.26036E-05_JPRB,1.27817E-05_JPRB,1.29612E-05_JPRB,1.31421E-05_JPRB,1.33244E-05_JPRB,& |
|---|
| 257 | & 1.35080E-05_JPRB,1.36930E-05_JPRB,1.38794E-05_JPRB,1.40672E-05_JPRB,1.42563E-05_JPRB,& |
|---|
| 258 | & 1.44468E-05_JPRB,1.46386E-05_JPRB,1.48318E-05_JPRB,1.50264E-05_JPRB,1.52223E-05_JPRB,& |
|---|
| 259 | & 1.54196E-05_JPRB,1.56182E-05_JPRB,1.58182E-05_JPRB,1.60196E-05_JPRB,1.62223E-05_JPRB,& |
|---|
| 260 | & 1.64263E-05_JPRB,1.66317E-05_JPRB,1.68384E-05_JPRB,1.70465E-05_JPRB,1.72559E-05_JPRB,& |
|---|
| 261 | & 1.74666E-05_JPRB,1.76787E-05_JPRB,1.78921E-05_JPRB,1.81069E-05_JPRB,1.83230E-05_JPRB,& |
|---|
| 262 | & 1.85404E-05_JPRB,1.87591E-05_JPRB,1.89791E-05_JPRB,1.92005E-05_JPRB,1.94232E-05_JPRB,& |
|---|
| 263 | & 1.96471E-05_JPRB/) |
|---|
| 264 | |
|---|
| 265 | TOTPLNK( :, 7) = (/& |
|---|
| 266 | & 1.25349E-07_JPRB,1.32735E-07_JPRB,1.40458E-07_JPRB,1.48527E-07_JPRB,1.56954E-07_JPRB,& |
|---|
| 267 | & 1.65748E-07_JPRB,1.74920E-07_JPRB,1.84481E-07_JPRB,1.94443E-07_JPRB,2.04814E-07_JPRB,& |
|---|
| 268 | & 2.15608E-07_JPRB,2.26835E-07_JPRB,2.38507E-07_JPRB,2.50634E-07_JPRB,2.63229E-07_JPRB,& |
|---|
| 269 | & 2.76301E-07_JPRB,2.89864E-07_JPRB,3.03930E-07_JPRB,3.18508E-07_JPRB,3.33612E-07_JPRB,& |
|---|
| 270 | & 3.49253E-07_JPRB,3.65443E-07_JPRB,3.82195E-07_JPRB,3.99519E-07_JPRB,4.17428E-07_JPRB,& |
|---|
| 271 | & 4.35934E-07_JPRB,4.55050E-07_JPRB,4.74785E-07_JPRB,4.95155E-07_JPRB,5.16170E-07_JPRB,& |
|---|
| 272 | & 5.37844E-07_JPRB,5.60186E-07_JPRB,5.83211E-07_JPRB,6.06929E-07_JPRB,6.31355E-07_JPRB,& |
|---|
| 273 | & 6.56498E-07_JPRB,6.82373E-07_JPRB,7.08990E-07_JPRB,7.36362E-07_JPRB,7.64501E-07_JPRB,& |
|---|
| 274 | & 7.93420E-07_JPRB,8.23130E-07_JPRB,8.53643E-07_JPRB,8.84971E-07_JPRB,9.17128E-07_JPRB,& |
|---|
| 275 | & 9.50123E-07_JPRB,9.83969E-07_JPRB,1.01868E-06_JPRB,1.05426E-06_JPRB,1.09073E-06_JPRB,& |
|---|
| 276 | & 1.12810E-06_JPRB,1.16638E-06_JPRB,1.20558E-06_JPRB,1.24572E-06_JPRB,1.28680E-06_JPRB,& |
|---|
| 277 | & 1.32883E-06_JPRB,1.37183E-06_JPRB,1.41581E-06_JPRB,1.46078E-06_JPRB,1.50675E-06_JPRB,& |
|---|
| 278 | & 1.55374E-06_JPRB,1.60174E-06_JPRB,1.65078E-06_JPRB,1.70087E-06_JPRB,1.75200E-06_JPRB,& |
|---|
| 279 | & 1.80421E-06_JPRB,1.85749E-06_JPRB,1.91186E-06_JPRB,1.96732E-06_JPRB,2.02389E-06_JPRB,& |
|---|
| 280 | & 2.08159E-06_JPRB,2.14040E-06_JPRB,2.20035E-06_JPRB,2.26146E-06_JPRB,2.32372E-06_JPRB,& |
|---|
| 281 | & 2.38714E-06_JPRB,2.45174E-06_JPRB,2.51753E-06_JPRB,2.58451E-06_JPRB,2.65270E-06_JPRB,& |
|---|
| 282 | & 2.72210E-06_JPRB,2.79272E-06_JPRB,2.86457E-06_JPRB,2.93767E-06_JPRB,3.01201E-06_JPRB,& |
|---|
| 283 | & 3.08761E-06_JPRB,3.16448E-06_JPRB,3.24261E-06_JPRB,3.32204E-06_JPRB,3.40275E-06_JPRB,& |
|---|
| 284 | & 3.48476E-06_JPRB,3.56808E-06_JPRB,3.65271E-06_JPRB,3.73866E-06_JPRB,3.82595E-06_JPRB,& |
|---|
| 285 | & 3.91456E-06_JPRB,4.00453E-06_JPRB,4.09584E-06_JPRB,4.18851E-06_JPRB,4.28254E-06_JPRB,& |
|---|
| 286 | & 4.37796E-06_JPRB,4.47475E-06_JPRB,4.57293E-06_JPRB,4.67249E-06_JPRB,4.77346E-06_JPRB,& |
|---|
| 287 | & 4.87583E-06_JPRB,4.97961E-06_JPRB,5.08481E-06_JPRB,5.19143E-06_JPRB,5.29948E-06_JPRB,& |
|---|
| 288 | & 5.40896E-06_JPRB,5.51989E-06_JPRB,5.63226E-06_JPRB,5.74608E-06_JPRB,5.86136E-06_JPRB,& |
|---|
| 289 | & 5.97810E-06_JPRB,6.09631E-06_JPRB,6.21597E-06_JPRB,6.33713E-06_JPRB,6.45976E-06_JPRB,& |
|---|
| 290 | & 6.58388E-06_JPRB,6.70950E-06_JPRB,6.83661E-06_JPRB,6.96521E-06_JPRB,7.09531E-06_JPRB,& |
|---|
| 291 | & 7.22692E-06_JPRB,7.36005E-06_JPRB,7.49468E-06_JPRB,7.63084E-06_JPRB,7.76851E-06_JPRB,& |
|---|
| 292 | & 7.90773E-06_JPRB,8.04846E-06_JPRB,8.19072E-06_JPRB,8.33452E-06_JPRB,8.47985E-06_JPRB,& |
|---|
| 293 | & 8.62674E-06_JPRB,8.77517E-06_JPRB,8.92514E-06_JPRB,9.07666E-06_JPRB,9.22975E-06_JPRB,& |
|---|
| 294 | & 9.38437E-06_JPRB,9.54057E-06_JPRB,9.69832E-06_JPRB,9.85762E-06_JPRB,1.00185E-05_JPRB,& |
|---|
| 295 | & 1.01810E-05_JPRB,1.03450E-05_JPRB,1.05106E-05_JPRB,1.06777E-05_JPRB,1.08465E-05_JPRB,& |
|---|
| 296 | & 1.10168E-05_JPRB,1.11887E-05_JPRB,1.13621E-05_JPRB,1.15372E-05_JPRB,1.17138E-05_JPRB,& |
|---|
| 297 | & 1.18920E-05_JPRB,1.20718E-05_JPRB,1.22532E-05_JPRB,1.24362E-05_JPRB,1.26207E-05_JPRB,& |
|---|
| 298 | & 1.28069E-05_JPRB,1.29946E-05_JPRB,1.31839E-05_JPRB,1.33749E-05_JPRB,1.35674E-05_JPRB,& |
|---|
| 299 | & 1.37615E-05_JPRB,1.39572E-05_JPRB,1.41544E-05_JPRB,1.43533E-05_JPRB,1.45538E-05_JPRB,& |
|---|
| 300 | & 1.47558E-05_JPRB,1.49595E-05_JPRB,1.51647E-05_JPRB,1.53716E-05_JPRB,1.55800E-05_JPRB,& |
|---|
| 301 | & 1.57900E-05_JPRB,1.60017E-05_JPRB,1.62149E-05_JPRB,1.64296E-05_JPRB,1.66460E-05_JPRB,& |
|---|
| 302 | & 1.68640E-05_JPRB/) |
|---|
| 303 | |
|---|
| 304 | TOTPLNK( :, 8) = (/& |
|---|
| 305 | & 6.74445E-08_JPRB,7.18176E-08_JPRB,7.64153E-08_JPRB,8.12456E-08_JPRB,8.63170E-08_JPRB,& |
|---|
| 306 | & 9.16378E-08_JPRB,9.72168E-08_JPRB,1.03063E-07_JPRB,1.09184E-07_JPRB,1.15591E-07_JPRB,& |
|---|
| 307 | & 1.22292E-07_JPRB,1.29296E-07_JPRB,1.36613E-07_JPRB,1.44253E-07_JPRB,1.52226E-07_JPRB,& |
|---|
| 308 | & 1.60540E-07_JPRB,1.69207E-07_JPRB,1.78236E-07_JPRB,1.87637E-07_JPRB,1.97421E-07_JPRB,& |
|---|
| 309 | & 2.07599E-07_JPRB,2.18181E-07_JPRB,2.29177E-07_JPRB,2.40598E-07_JPRB,2.52456E-07_JPRB,& |
|---|
| 310 | & 2.64761E-07_JPRB,2.77523E-07_JPRB,2.90755E-07_JPRB,3.04468E-07_JPRB,3.18673E-07_JPRB,& |
|---|
| 311 | & 3.33381E-07_JPRB,3.48603E-07_JPRB,3.64352E-07_JPRB,3.80638E-07_JPRB,3.97474E-07_JPRB,& |
|---|
| 312 | & 4.14871E-07_JPRB,4.32841E-07_JPRB,4.51395E-07_JPRB,4.70547E-07_JPRB,4.90306E-07_JPRB,& |
|---|
| 313 | & 5.10687E-07_JPRB,5.31699E-07_JPRB,5.53357E-07_JPRB,5.75670E-07_JPRB,5.98652E-07_JPRB,& |
|---|
| 314 | & 6.22315E-07_JPRB,6.46672E-07_JPRB,6.71731E-07_JPRB,6.97511E-07_JPRB,7.24018E-07_JPRB,& |
|---|
| 315 | & 7.51266E-07_JPRB,7.79269E-07_JPRB,8.08038E-07_JPRB,8.37584E-07_JPRB,8.67922E-07_JPRB,& |
|---|
| 316 | & 8.99061E-07_JPRB,9.31016E-07_JPRB,9.63797E-07_JPRB,9.97417E-07_JPRB,1.03189E-06_JPRB,& |
|---|
| 317 | & 1.06722E-06_JPRB,1.10343E-06_JPRB,1.14053E-06_JPRB,1.17853E-06_JPRB,1.21743E-06_JPRB,& |
|---|
| 318 | & 1.25726E-06_JPRB,1.29803E-06_JPRB,1.33974E-06_JPRB,1.38241E-06_JPRB,1.42606E-06_JPRB,& |
|---|
| 319 | & 1.47068E-06_JPRB,1.51630E-06_JPRB,1.56293E-06_JPRB,1.61056E-06_JPRB,1.65924E-06_JPRB,& |
|---|
| 320 | & 1.70894E-06_JPRB,1.75971E-06_JPRB,1.81153E-06_JPRB,1.86443E-06_JPRB,1.91841E-06_JPRB,& |
|---|
| 321 | & 1.97350E-06_JPRB,2.02968E-06_JPRB,2.08699E-06_JPRB,2.14543E-06_JPRB,2.20500E-06_JPRB,& |
|---|
| 322 | & 2.26573E-06_JPRB,2.32762E-06_JPRB,2.39068E-06_JPRB,2.45492E-06_JPRB,2.52036E-06_JPRB,& |
|---|
| 323 | & 2.58700E-06_JPRB,2.65485E-06_JPRB,2.72393E-06_JPRB,2.79424E-06_JPRB,2.86580E-06_JPRB,& |
|---|
| 324 | & 2.93861E-06_JPRB,3.01269E-06_JPRB,3.08803E-06_JPRB,3.16467E-06_JPRB,3.24259E-06_JPRB,& |
|---|
| 325 | & 3.32181E-06_JPRB,3.40235E-06_JPRB,3.48420E-06_JPRB,3.56739E-06_JPRB,3.65192E-06_JPRB,& |
|---|
| 326 | & 3.73779E-06_JPRB,3.82502E-06_JPRB,3.91362E-06_JPRB,4.00359E-06_JPRB,4.09494E-06_JPRB,& |
|---|
| 327 | & 4.18768E-06_JPRB,4.28182E-06_JPRB,4.37737E-06_JPRB,4.47434E-06_JPRB,4.57273E-06_JPRB,& |
|---|
| 328 | & 4.67254E-06_JPRB,4.77380E-06_JPRB,4.87651E-06_JPRB,4.98067E-06_JPRB,5.08630E-06_JPRB,& |
|---|
| 329 | & 5.19339E-06_JPRB,5.30196E-06_JPRB,5.41201E-06_JPRB,5.52356E-06_JPRB,5.63660E-06_JPRB,& |
|---|
| 330 | & 5.75116E-06_JPRB,5.86722E-06_JPRB,5.98479E-06_JPRB,6.10390E-06_JPRB,6.22453E-06_JPRB,& |
|---|
| 331 | & 6.34669E-06_JPRB,6.47042E-06_JPRB,6.59569E-06_JPRB,6.72252E-06_JPRB,6.85090E-06_JPRB,& |
|---|
| 332 | & 6.98085E-06_JPRB,7.11238E-06_JPRB,7.24549E-06_JPRB,7.38019E-06_JPRB,7.51646E-06_JPRB,& |
|---|
| 333 | & 7.65434E-06_JPRB,7.79382E-06_JPRB,7.93490E-06_JPRB,8.07760E-06_JPRB,8.22192E-06_JPRB,& |
|---|
| 334 | & 8.36784E-06_JPRB,8.51540E-06_JPRB,8.66459E-06_JPRB,8.81542E-06_JPRB,8.96786E-06_JPRB,& |
|---|
| 335 | & 9.12197E-06_JPRB,9.27772E-06_JPRB,9.43513E-06_JPRB,9.59419E-06_JPRB,9.75490E-06_JPRB,& |
|---|
| 336 | & 9.91728E-06_JPRB,1.00813E-05_JPRB,1.02471E-05_JPRB,1.04144E-05_JPRB,1.05835E-05_JPRB,& |
|---|
| 337 | & 1.07543E-05_JPRB,1.09267E-05_JPRB,1.11008E-05_JPRB,1.12766E-05_JPRB,1.14541E-05_JPRB,& |
|---|
| 338 | & 1.16333E-05_JPRB,1.18142E-05_JPRB,1.19969E-05_JPRB,1.21812E-05_JPRB,1.23672E-05_JPRB,& |
|---|
| 339 | & 1.25549E-05_JPRB,1.27443E-05_JPRB,1.29355E-05_JPRB,1.31284E-05_JPRB,1.33229E-05_JPRB,& |
|---|
| 340 | & 1.35193E-05_JPRB,1.37173E-05_JPRB,1.39170E-05_JPRB,1.41185E-05_JPRB,1.43217E-05_JPRB,& |
|---|
| 341 | & 1.45267E-05_JPRB/) |
|---|
| 342 | |
|---|
| 343 | TOTPLNK( :, 9) = (/& |
|---|
| 344 | & 2.61522E-08_JPRB,2.80613E-08_JPRB,3.00838E-08_JPRB,3.22250E-08_JPRB,3.44899E-08_JPRB,& |
|---|
| 345 | & 3.68841E-08_JPRB,3.94129E-08_JPRB,4.20820E-08_JPRB,4.48973E-08_JPRB,4.78646E-08_JPRB,& |
|---|
| 346 | & 5.09901E-08_JPRB,5.42799E-08_JPRB,5.77405E-08_JPRB,6.13784E-08_JPRB,6.52001E-08_JPRB,& |
|---|
| 347 | & 6.92126E-08_JPRB,7.34227E-08_JPRB,7.78375E-08_JPRB,8.24643E-08_JPRB,8.73103E-08_JPRB,& |
|---|
| 348 | & 9.23832E-08_JPRB,9.76905E-08_JPRB,1.03240E-07_JPRB,1.09039E-07_JPRB,1.15097E-07_JPRB,& |
|---|
| 349 | & 1.21421E-07_JPRB,1.28020E-07_JPRB,1.34902E-07_JPRB,1.42075E-07_JPRB,1.49548E-07_JPRB,& |
|---|
| 350 | & 1.57331E-07_JPRB,1.65432E-07_JPRB,1.73860E-07_JPRB,1.82624E-07_JPRB,1.91734E-07_JPRB,& |
|---|
| 351 | & 2.01198E-07_JPRB,2.11028E-07_JPRB,2.21231E-07_JPRB,2.31818E-07_JPRB,2.42799E-07_JPRB,& |
|---|
| 352 | & 2.54184E-07_JPRB,2.65983E-07_JPRB,2.78205E-07_JPRB,2.90862E-07_JPRB,3.03963E-07_JPRB,& |
|---|
| 353 | & 3.17519E-07_JPRB,3.31541E-07_JPRB,3.46039E-07_JPRB,3.61024E-07_JPRB,3.76507E-07_JPRB,& |
|---|
| 354 | & 3.92498E-07_JPRB,4.09008E-07_JPRB,4.26050E-07_JPRB,4.43633E-07_JPRB,4.61769E-07_JPRB,& |
|---|
| 355 | & 4.80469E-07_JPRB,4.99744E-07_JPRB,5.19606E-07_JPRB,5.40067E-07_JPRB,5.61136E-07_JPRB,& |
|---|
| 356 | & 5.82828E-07_JPRB,6.05152E-07_JPRB,6.28120E-07_JPRB,6.51745E-07_JPRB,6.76038E-07_JPRB,& |
|---|
| 357 | & 7.01010E-07_JPRB,7.26674E-07_JPRB,7.53041E-07_JPRB,7.80124E-07_JPRB,8.07933E-07_JPRB,& |
|---|
| 358 | & 8.36482E-07_JPRB,8.65781E-07_JPRB,8.95845E-07_JPRB,9.26683E-07_JPRB,9.58308E-07_JPRB,& |
|---|
| 359 | & 9.90732E-07_JPRB,1.02397E-06_JPRB,1.05803E-06_JPRB,1.09292E-06_JPRB,1.12866E-06_JPRB,& |
|---|
| 360 | & 1.16526E-06_JPRB,1.20274E-06_JPRB,1.24109E-06_JPRB,1.28034E-06_JPRB,1.32050E-06_JPRB,& |
|---|
| 361 | & 1.36158E-06_JPRB,1.40359E-06_JPRB,1.44655E-06_JPRB,1.49046E-06_JPRB,1.53534E-06_JPRB,& |
|---|
| 362 | & 1.58120E-06_JPRB,1.62805E-06_JPRB,1.67591E-06_JPRB,1.72478E-06_JPRB,1.77468E-06_JPRB,& |
|---|
| 363 | & 1.82561E-06_JPRB,1.87760E-06_JPRB,1.93066E-06_JPRB,1.98479E-06_JPRB,2.04000E-06_JPRB,& |
|---|
| 364 | & 2.09631E-06_JPRB,2.15373E-06_JPRB,2.21228E-06_JPRB,2.27196E-06_JPRB,2.33278E-06_JPRB,& |
|---|
| 365 | & 2.39475E-06_JPRB,2.45790E-06_JPRB,2.52222E-06_JPRB,2.58773E-06_JPRB,2.65445E-06_JPRB,& |
|---|
| 366 | & 2.72238E-06_JPRB,2.79152E-06_JPRB,2.86191E-06_JPRB,2.93354E-06_JPRB,3.00643E-06_JPRB,& |
|---|
| 367 | & 3.08058E-06_JPRB,3.15601E-06_JPRB,3.23273E-06_JPRB,3.31075E-06_JPRB,3.39009E-06_JPRB,& |
|---|
| 368 | & 3.47074E-06_JPRB,3.55272E-06_JPRB,3.63605E-06_JPRB,3.72072E-06_JPRB,3.80676E-06_JPRB,& |
|---|
| 369 | & 3.89417E-06_JPRB,3.98297E-06_JPRB,4.07315E-06_JPRB,4.16474E-06_JPRB,4.25774E-06_JPRB,& |
|---|
| 370 | & 4.35217E-06_JPRB,4.44802E-06_JPRB,4.54532E-06_JPRB,4.64406E-06_JPRB,4.74428E-06_JPRB,& |
|---|
| 371 | & 4.84595E-06_JPRB,4.94911E-06_JPRB,5.05376E-06_JPRB,5.15990E-06_JPRB,5.26755E-06_JPRB,& |
|---|
| 372 | & 5.37671E-06_JPRB,5.48741E-06_JPRB,5.59963E-06_JPRB,5.71340E-06_JPRB,5.82871E-06_JPRB,& |
|---|
| 373 | & 5.94559E-06_JPRB,6.06403E-06_JPRB,6.18404E-06_JPRB,6.30565E-06_JPRB,6.42885E-06_JPRB,& |
|---|
| 374 | & 6.55364E-06_JPRB,6.68004E-06_JPRB,6.80806E-06_JPRB,6.93771E-06_JPRB,7.06898E-06_JPRB,& |
|---|
| 375 | & 7.20190E-06_JPRB,7.33646E-06_JPRB,7.47267E-06_JPRB,7.61056E-06_JPRB,7.75010E-06_JPRB,& |
|---|
| 376 | & 7.89133E-06_JPRB,8.03423E-06_JPRB,8.17884E-06_JPRB,8.32514E-06_JPRB,8.47314E-06_JPRB,& |
|---|
| 377 | & 8.62284E-06_JPRB,8.77427E-06_JPRB,8.92743E-06_JPRB,9.08231E-06_JPRB,9.23893E-06_JPRB,& |
|---|
| 378 | & 9.39729E-06_JPRB,9.55741E-06_JPRB,9.71927E-06_JPRB,9.88291E-06_JPRB,1.00483E-05_JPRB,& |
|---|
| 379 | & 1.02155E-05_JPRB,1.03844E-05_JPRB,1.05552E-05_JPRB,1.07277E-05_JPRB,1.09020E-05_JPRB,& |
|---|
| 380 | & 1.10781E-05_JPRB/) |
|---|
| 381 | |
|---|
| 382 | TOTPLNK( :,10) = (/& |
|---|
| 383 | & 8.89300E-09_JPRB,9.63263E-09_JPRB,1.04235E-08_JPRB,1.12685E-08_JPRB,1.21703E-08_JPRB,& |
|---|
| 384 | & 1.31321E-08_JPRB,1.41570E-08_JPRB,1.52482E-08_JPRB,1.64090E-08_JPRB,1.76428E-08_JPRB,& |
|---|
| 385 | & 1.89533E-08_JPRB,2.03441E-08_JPRB,2.18190E-08_JPRB,2.33820E-08_JPRB,2.50370E-08_JPRB,& |
|---|
| 386 | & 2.67884E-08_JPRB,2.86402E-08_JPRB,3.05969E-08_JPRB,3.26632E-08_JPRB,3.48436E-08_JPRB,& |
|---|
| 387 | & 3.71429E-08_JPRB,3.95660E-08_JPRB,4.21179E-08_JPRB,4.48040E-08_JPRB,4.76294E-08_JPRB,& |
|---|
| 388 | & 5.05996E-08_JPRB,5.37201E-08_JPRB,5.69966E-08_JPRB,6.04349E-08_JPRB,6.40411E-08_JPRB,& |
|---|
| 389 | & 6.78211E-08_JPRB,7.17812E-08_JPRB,7.59276E-08_JPRB,8.02670E-08_JPRB,8.48059E-08_JPRB,& |
|---|
| 390 | & 8.95508E-08_JPRB,9.45090E-08_JPRB,9.96873E-08_JPRB,1.05093E-07_JPRB,1.10733E-07_JPRB,& |
|---|
| 391 | & 1.16614E-07_JPRB,1.22745E-07_JPRB,1.29133E-07_JPRB,1.35786E-07_JPRB,1.42711E-07_JPRB,& |
|---|
| 392 | & 1.49916E-07_JPRB,1.57410E-07_JPRB,1.65202E-07_JPRB,1.73298E-07_JPRB,1.81709E-07_JPRB,& |
|---|
| 393 | & 1.90441E-07_JPRB,1.99505E-07_JPRB,2.08908E-07_JPRB,2.18660E-07_JPRB,2.28770E-07_JPRB,& |
|---|
| 394 | & 2.39247E-07_JPRB,2.50101E-07_JPRB,2.61340E-07_JPRB,2.72974E-07_JPRB,2.85013E-07_JPRB,& |
|---|
| 395 | & 2.97467E-07_JPRB,3.10345E-07_JPRB,3.23657E-07_JPRB,3.37413E-07_JPRB,3.51623E-07_JPRB,& |
|---|
| 396 | & 3.66298E-07_JPRB,3.81448E-07_JPRB,3.97082E-07_JPRB,4.13212E-07_JPRB,4.29848E-07_JPRB,& |
|---|
| 397 | & 4.47000E-07_JPRB,4.64680E-07_JPRB,4.82898E-07_JPRB,5.01664E-07_JPRB,5.20991E-07_JPRB,& |
|---|
| 398 | & 5.40888E-07_JPRB,5.61369E-07_JPRB,5.82440E-07_JPRB,6.04118E-07_JPRB,6.26410E-07_JPRB,& |
|---|
| 399 | & 6.49329E-07_JPRB,6.72887E-07_JPRB,6.97095E-07_JPRB,7.21964E-07_JPRB,7.47506E-07_JPRB,& |
|---|
| 400 | & 7.73732E-07_JPRB,8.00655E-07_JPRB,8.28287E-07_JPRB,8.56635E-07_JPRB,8.85717E-07_JPRB,& |
|---|
| 401 | & 9.15542E-07_JPRB,9.46122E-07_JPRB,9.77469E-07_JPRB,1.00960E-06_JPRB,1.04251E-06_JPRB,& |
|---|
| 402 | & 1.07623E-06_JPRB,1.11077E-06_JPRB,1.14613E-06_JPRB,1.18233E-06_JPRB,1.21939E-06_JPRB,& |
|---|
| 403 | & 1.25730E-06_JPRB,1.29610E-06_JPRB,1.33578E-06_JPRB,1.37636E-06_JPRB,1.41785E-06_JPRB,& |
|---|
| 404 | & 1.46027E-06_JPRB,1.50362E-06_JPRB,1.54792E-06_JPRB,1.59319E-06_JPRB,1.63942E-06_JPRB,& |
|---|
| 405 | & 1.68665E-06_JPRB,1.73487E-06_JPRB,1.78410E-06_JPRB,1.83435E-06_JPRB,1.88564E-06_JPRB,& |
|---|
| 406 | & 1.93797E-06_JPRB,1.99136E-06_JPRB,2.04582E-06_JPRB,2.10137E-06_JPRB,2.15801E-06_JPRB,& |
|---|
| 407 | & 2.21576E-06_JPRB,2.27463E-06_JPRB,2.33462E-06_JPRB,2.39577E-06_JPRB,2.45806E-06_JPRB,& |
|---|
| 408 | & 2.52153E-06_JPRB,2.58617E-06_JPRB,2.65201E-06_JPRB,2.71905E-06_JPRB,2.78730E-06_JPRB,& |
|---|
| 409 | & 2.85678E-06_JPRB,2.92749E-06_JPRB,2.99946E-06_JPRB,3.07269E-06_JPRB,3.14720E-06_JPRB,& |
|---|
| 410 | & 3.22299E-06_JPRB,3.30007E-06_JPRB,3.37847E-06_JPRB,3.45818E-06_JPRB,3.53923E-06_JPRB,& |
|---|
| 411 | & 3.62161E-06_JPRB,3.70535E-06_JPRB,3.79046E-06_JPRB,3.87695E-06_JPRB,3.96481E-06_JPRB,& |
|---|
| 412 | & 4.05409E-06_JPRB,4.14477E-06_JPRB,4.23687E-06_JPRB,4.33040E-06_JPRB,4.42538E-06_JPRB,& |
|---|
| 413 | & 4.52180E-06_JPRB,4.61969E-06_JPRB,4.71905E-06_JPRB,4.81991E-06_JPRB,4.92226E-06_JPRB,& |
|---|
| 414 | & 5.02611E-06_JPRB,5.13148E-06_JPRB,5.23839E-06_JPRB,5.34681E-06_JPRB,5.45681E-06_JPRB,& |
|---|
| 415 | & 5.56835E-06_JPRB,5.68146E-06_JPRB,5.79614E-06_JPRB,5.91242E-06_JPRB,6.03030E-06_JPRB,& |
|---|
| 416 | & 6.14978E-06_JPRB,6.27088E-06_JPRB,6.39360E-06_JPRB,6.51798E-06_JPRB,6.64398E-06_JPRB,& |
|---|
| 417 | & 6.77165E-06_JPRB,6.90099E-06_JPRB,7.03198E-06_JPRB,7.16468E-06_JPRB,7.29906E-06_JPRB,& |
|---|
| 418 | & 7.43514E-06_JPRB,7.57294E-06_JPRB,7.71244E-06_JPRB,7.85369E-06_JPRB,7.99666E-06_JPRB,& |
|---|
| 419 | & 8.14138E-06_JPRB/) |
|---|
| 420 | |
|---|
| 421 | TOTPLNK( :,11) = (/& |
|---|
| 422 | & 2.53767E-09_JPRB,2.77242E-09_JPRB,3.02564E-09_JPRB,3.29851E-09_JPRB,3.59228E-09_JPRB,& |
|---|
| 423 | & 3.90825E-09_JPRB,4.24777E-09_JPRB,4.61227E-09_JPRB,5.00322E-09_JPRB,5.42219E-09_JPRB,& |
|---|
| 424 | & 5.87080E-09_JPRB,6.35072E-09_JPRB,6.86370E-09_JPRB,7.41159E-09_JPRB,7.99628E-09_JPRB,& |
|---|
| 425 | & 8.61974E-09_JPRB,9.28404E-09_JPRB,9.99130E-09_JPRB,1.07437E-08_JPRB,1.15436E-08_JPRB,& |
|---|
| 426 | & 1.23933E-08_JPRB,1.32953E-08_JPRB,1.42522E-08_JPRB,1.52665E-08_JPRB,1.63410E-08_JPRB,& |
|---|
| 427 | & 1.74786E-08_JPRB,1.86820E-08_JPRB,1.99542E-08_JPRB,2.12985E-08_JPRB,2.27179E-08_JPRB,& |
|---|
| 428 | & 2.42158E-08_JPRB,2.57954E-08_JPRB,2.74604E-08_JPRB,2.92141E-08_JPRB,3.10604E-08_JPRB,& |
|---|
| 429 | & 3.30029E-08_JPRB,3.50457E-08_JPRB,3.71925E-08_JPRB,3.94476E-08_JPRB,4.18149E-08_JPRB,& |
|---|
| 430 | & 4.42991E-08_JPRB,4.69043E-08_JPRB,4.96352E-08_JPRB,5.24961E-08_JPRB,5.54921E-08_JPRB,& |
|---|
| 431 | & 5.86277E-08_JPRB,6.19081E-08_JPRB,6.53381E-08_JPRB,6.89231E-08_JPRB,7.26681E-08_JPRB,& |
|---|
| 432 | & 7.65788E-08_JPRB,8.06604E-08_JPRB,8.49187E-08_JPRB,8.93591E-08_JPRB,9.39879E-08_JPRB,& |
|---|
| 433 | & 9.88106E-08_JPRB,1.03834E-07_JPRB,1.09063E-07_JPRB,1.14504E-07_JPRB,1.20165E-07_JPRB,& |
|---|
| 434 | & 1.26051E-07_JPRB,1.32169E-07_JPRB,1.38525E-07_JPRB,1.45128E-07_JPRB,1.51982E-07_JPRB,& |
|---|
| 435 | & 1.59096E-07_JPRB,1.66477E-07_JPRB,1.74132E-07_JPRB,1.82068E-07_JPRB,1.90292E-07_JPRB,& |
|---|
| 436 | & 1.98813E-07_JPRB,2.07638E-07_JPRB,2.16775E-07_JPRB,2.26231E-07_JPRB,2.36015E-07_JPRB,& |
|---|
| 437 | & 2.46135E-07_JPRB,2.56599E-07_JPRB,2.67415E-07_JPRB,2.78592E-07_JPRB,2.90137E-07_JPRB,& |
|---|
| 438 | & 3.02061E-07_JPRB,3.14371E-07_JPRB,3.27077E-07_JPRB,3.40186E-07_JPRB,3.53710E-07_JPRB,& |
|---|
| 439 | & 3.67655E-07_JPRB,3.82031E-07_JPRB,3.96848E-07_JPRB,4.12116E-07_JPRB,4.27842E-07_JPRB,& |
|---|
| 440 | & 4.44039E-07_JPRB,4.60713E-07_JPRB,4.77876E-07_JPRB,4.95537E-07_JPRB,5.13706E-07_JPRB,& |
|---|
| 441 | & 5.32392E-07_JPRB,5.51608E-07_JPRB,5.71360E-07_JPRB,5.91662E-07_JPRB,6.12521E-07_JPRB,& |
|---|
| 442 | & 6.33950E-07_JPRB,6.55958E-07_JPRB,6.78556E-07_JPRB,7.01753E-07_JPRB,7.25562E-07_JPRB,& |
|---|
| 443 | & 7.49992E-07_JPRB,7.75055E-07_JPRB,8.00760E-07_JPRB,8.27120E-07_JPRB,8.54145E-07_JPRB,& |
|---|
| 444 | & 8.81845E-07_JPRB,9.10233E-07_JPRB,9.39318E-07_JPRB,9.69113E-07_JPRB,9.99627E-07_JPRB,& |
|---|
| 445 | & 1.03087E-06_JPRB,1.06286E-06_JPRB,1.09561E-06_JPRB,1.12912E-06_JPRB,1.16340E-06_JPRB,& |
|---|
| 446 | & 1.19848E-06_JPRB,1.23435E-06_JPRB,1.27104E-06_JPRB,1.30855E-06_JPRB,1.34690E-06_JPRB,& |
|---|
| 447 | & 1.38609E-06_JPRB,1.42614E-06_JPRB,1.46706E-06_JPRB,1.50886E-06_JPRB,1.55155E-06_JPRB,& |
|---|
| 448 | & 1.59515E-06_JPRB,1.63967E-06_JPRB,1.68512E-06_JPRB,1.73150E-06_JPRB,1.77884E-06_JPRB,& |
|---|
| 449 | & 1.82715E-06_JPRB,1.87643E-06_JPRB,1.92670E-06_JPRB,1.97797E-06_JPRB,2.03026E-06_JPRB,& |
|---|
| 450 | & 2.08356E-06_JPRB,2.13791E-06_JPRB,2.19330E-06_JPRB,2.24975E-06_JPRB,2.30728E-06_JPRB,& |
|---|
| 451 | & 2.36589E-06_JPRB,2.42560E-06_JPRB,2.48641E-06_JPRB,2.54835E-06_JPRB,2.61142E-06_JPRB,& |
|---|
| 452 | & 2.67563E-06_JPRB,2.74100E-06_JPRB,2.80754E-06_JPRB,2.87526E-06_JPRB,2.94417E-06_JPRB,& |
|---|
| 453 | & 3.01429E-06_JPRB,3.08562E-06_JPRB,3.15819E-06_JPRB,3.23199E-06_JPRB,3.30704E-06_JPRB,& |
|---|
| 454 | & 3.38336E-06_JPRB,3.46096E-06_JPRB,3.53984E-06_JPRB,3.62002E-06_JPRB,3.70151E-06_JPRB,& |
|---|
| 455 | & 3.78433E-06_JPRB,3.86848E-06_JPRB,3.95399E-06_JPRB,4.04084E-06_JPRB,4.12907E-06_JPRB,& |
|---|
| 456 | & 4.21868E-06_JPRB,4.30968E-06_JPRB,4.40209E-06_JPRB,4.49592E-06_JPRB,4.59117E-06_JPRB,& |
|---|
| 457 | & 4.68786E-06_JPRB,4.78600E-06_JPRB,4.88561E-06_JPRB,4.98669E-06_JPRB,5.08926E-06_JPRB,& |
|---|
| 458 | & 5.19332E-06_JPRB/) |
|---|
| 459 | |
|---|
| 460 | TOTPLNK( :,12) = (/& |
|---|
| 461 | & 2.73921E-10_JPRB,3.04500E-10_JPRB,3.38056E-10_JPRB,3.74835E-10_JPRB,4.15099E-10_JPRB,& |
|---|
| 462 | & 4.59126E-10_JPRB,5.07214E-10_JPRB,5.59679E-10_JPRB,6.16857E-10_JPRB,6.79103E-10_JPRB,& |
|---|
| 463 | & 7.46796E-10_JPRB,8.20335E-10_JPRB,9.00144E-10_JPRB,9.86671E-10_JPRB,1.08039E-09_JPRB,& |
|---|
| 464 | & 1.18180E-09_JPRB,1.29142E-09_JPRB,1.40982E-09_JPRB,1.53757E-09_JPRB,1.67529E-09_JPRB,& |
|---|
| 465 | & 1.82363E-09_JPRB,1.98327E-09_JPRB,2.15492E-09_JPRB,2.33932E-09_JPRB,2.53726E-09_JPRB,& |
|---|
| 466 | & 2.74957E-09_JPRB,2.97710E-09_JPRB,3.22075E-09_JPRB,3.48145E-09_JPRB,3.76020E-09_JPRB,& |
|---|
| 467 | & 4.05801E-09_JPRB,4.37595E-09_JPRB,4.71513E-09_JPRB,5.07672E-09_JPRB,5.46193E-09_JPRB,& |
|---|
| 468 | & 5.87201E-09_JPRB,6.30827E-09_JPRB,6.77205E-09_JPRB,7.26480E-09_JPRB,7.78794E-09_JPRB,& |
|---|
| 469 | & 8.34304E-09_JPRB,8.93163E-09_JPRB,9.55537E-09_JPRB,1.02159E-08_JPRB,1.09151E-08_JPRB,& |
|---|
| 470 | & 1.16547E-08_JPRB,1.24365E-08_JPRB,1.32625E-08_JPRB,1.41348E-08_JPRB,1.50554E-08_JPRB,& |
|---|
| 471 | & 1.60264E-08_JPRB,1.70500E-08_JPRB,1.81285E-08_JPRB,1.92642E-08_JPRB,2.04596E-08_JPRB,& |
|---|
| 472 | & 2.17171E-08_JPRB,2.30394E-08_JPRB,2.44289E-08_JPRB,2.58885E-08_JPRB,2.74209E-08_JPRB,& |
|---|
| 473 | & 2.90290E-08_JPRB,3.07157E-08_JPRB,3.24841E-08_JPRB,3.43371E-08_JPRB,3.62782E-08_JPRB,& |
|---|
| 474 | & 3.83103E-08_JPRB,4.04371E-08_JPRB,4.26617E-08_JPRB,4.49878E-08_JPRB,4.74190E-08_JPRB,& |
|---|
| 475 | & 4.99589E-08_JPRB,5.26113E-08_JPRB,5.53801E-08_JPRB,5.82692E-08_JPRB,6.12826E-08_JPRB,& |
|---|
| 476 | & 6.44245E-08_JPRB,6.76991E-08_JPRB,7.11105E-08_JPRB,7.46634E-08_JPRB,7.83621E-08_JPRB,& |
|---|
| 477 | & 8.22112E-08_JPRB,8.62154E-08_JPRB,9.03795E-08_JPRB,9.47081E-08_JPRB,9.92066E-08_JPRB,& |
|---|
| 478 | & 1.03879E-07_JPRB,1.08732E-07_JPRB,1.13770E-07_JPRB,1.18998E-07_JPRB,1.24422E-07_JPRB,& |
|---|
| 479 | & 1.30048E-07_JPRB,1.35880E-07_JPRB,1.41924E-07_JPRB,1.48187E-07_JPRB,1.54675E-07_JPRB,& |
|---|
| 480 | & 1.61392E-07_JPRB,1.68346E-07_JPRB,1.75543E-07_JPRB,1.82988E-07_JPRB,1.90688E-07_JPRB,& |
|---|
| 481 | & 1.98650E-07_JPRB,2.06880E-07_JPRB,2.15385E-07_JPRB,2.24172E-07_JPRB,2.33247E-07_JPRB,& |
|---|
| 482 | & 2.42617E-07_JPRB,2.52289E-07_JPRB,2.62272E-07_JPRB,2.72571E-07_JPRB,2.83193E-07_JPRB,& |
|---|
| 483 | & 2.94147E-07_JPRB,3.05440E-07_JPRB,3.17080E-07_JPRB,3.29074E-07_JPRB,3.41430E-07_JPRB,& |
|---|
| 484 | & 3.54155E-07_JPRB,3.67259E-07_JPRB,3.80747E-07_JPRB,3.94631E-07_JPRB,4.08916E-07_JPRB,& |
|---|
| 485 | & 4.23611E-07_JPRB,4.38725E-07_JPRB,4.54267E-07_JPRB,4.70245E-07_JPRB,4.86666E-07_JPRB,& |
|---|
| 486 | & 5.03541E-07_JPRB,5.20879E-07_JPRB,5.38687E-07_JPRB,5.56975E-07_JPRB,5.75751E-07_JPRB,& |
|---|
| 487 | & 5.95026E-07_JPRB,6.14808E-07_JPRB,6.35107E-07_JPRB,6.55932E-07_JPRB,6.77293E-07_JPRB,& |
|---|
| 488 | & 6.99197E-07_JPRB,7.21656E-07_JPRB,7.44681E-07_JPRB,7.68278E-07_JPRB,7.92460E-07_JPRB,& |
|---|
| 489 | & 8.17235E-07_JPRB,8.42614E-07_JPRB,8.68606E-07_JPRB,8.95223E-07_JPRB,9.22473E-07_JPRB,& |
|---|
| 490 | & 9.50366E-07_JPRB,9.78915E-07_JPRB,1.00813E-06_JPRB,1.03802E-06_JPRB,1.06859E-06_JPRB,& |
|---|
| 491 | & 1.09986E-06_JPRB,1.13184E-06_JPRB,1.16453E-06_JPRB,1.19796E-06_JPRB,1.23212E-06_JPRB,& |
|---|
| 492 | & 1.26703E-06_JPRB,1.30270E-06_JPRB,1.33915E-06_JPRB,1.37637E-06_JPRB,1.41440E-06_JPRB,& |
|---|
| 493 | & 1.45322E-06_JPRB,1.49286E-06_JPRB,1.53333E-06_JPRB,1.57464E-06_JPRB,1.61679E-06_JPRB,& |
|---|
| 494 | & 1.65981E-06_JPRB,1.70370E-06_JPRB,1.74847E-06_JPRB,1.79414E-06_JPRB,1.84071E-06_JPRB,& |
|---|
| 495 | & 1.88821E-06_JPRB,1.93663E-06_JPRB,1.98599E-06_JPRB,2.03631E-06_JPRB,2.08759E-06_JPRB,& |
|---|
| 496 | & 2.13985E-06_JPRB,2.19310E-06_JPRB,2.24734E-06_JPRB,2.30260E-06_JPRB,2.35888E-06_JPRB,& |
|---|
| 497 | & 2.41619E-06_JPRB/) |
|---|
| 498 | |
|---|
| 499 | TOTPLNK( :,13) = (/& |
|---|
| 500 | & 4.53634E-11_JPRB,5.11435E-11_JPRB,5.75754E-11_JPRB,6.47222E-11_JPRB,7.26531E-11_JPRB,& |
|---|
| 501 | & 8.14420E-11_JPRB,9.11690E-11_JPRB,1.01921E-10_JPRB,1.13790E-10_JPRB,1.26877E-10_JPRB,& |
|---|
| 502 | & 1.41288E-10_JPRB,1.57140E-10_JPRB,1.74555E-10_JPRB,1.93665E-10_JPRB,2.14613E-10_JPRB,& |
|---|
| 503 | & 2.37548E-10_JPRB,2.62633E-10_JPRB,2.90039E-10_JPRB,3.19948E-10_JPRB,3.52558E-10_JPRB,& |
|---|
| 504 | & 3.88073E-10_JPRB,4.26716E-10_JPRB,4.68719E-10_JPRB,5.14331E-10_JPRB,5.63815E-10_JPRB,& |
|---|
| 505 | & 6.17448E-10_JPRB,6.75526E-10_JPRB,7.38358E-10_JPRB,8.06277E-10_JPRB,8.79625E-10_JPRB,& |
|---|
| 506 | & 9.58770E-10_JPRB,1.04410E-09_JPRB,1.13602E-09_JPRB,1.23495E-09_JPRB,1.34135E-09_JPRB,& |
|---|
| 507 | & 1.45568E-09_JPRB,1.57845E-09_JPRB,1.71017E-09_JPRB,1.85139E-09_JPRB,2.00268E-09_JPRB,& |
|---|
| 508 | & 2.16464E-09_JPRB,2.33789E-09_JPRB,2.52309E-09_JPRB,2.72093E-09_JPRB,2.93212E-09_JPRB,& |
|---|
| 509 | & 3.15740E-09_JPRB,3.39757E-09_JPRB,3.65341E-09_JPRB,3.92579E-09_JPRB,4.21559E-09_JPRB,& |
|---|
| 510 | & 4.52372E-09_JPRB,4.85115E-09_JPRB,5.19886E-09_JPRB,5.56788E-09_JPRB,5.95928E-09_JPRB,& |
|---|
| 511 | & 6.37419E-09_JPRB,6.81375E-09_JPRB,7.27917E-09_JPRB,7.77168E-09_JPRB,8.29256E-09_JPRB,& |
|---|
| 512 | & 8.84317E-09_JPRB,9.42487E-09_JPRB,1.00391E-08_JPRB,1.06873E-08_JPRB,1.13710E-08_JPRB,& |
|---|
| 513 | & 1.20919E-08_JPRB,1.28515E-08_JPRB,1.36514E-08_JPRB,1.44935E-08_JPRB,1.53796E-08_JPRB,& |
|---|
| 514 | & 1.63114E-08_JPRB,1.72909E-08_JPRB,1.83201E-08_JPRB,1.94008E-08_JPRB,2.05354E-08_JPRB,& |
|---|
| 515 | & 2.17258E-08_JPRB,2.29742E-08_JPRB,2.42830E-08_JPRB,2.56545E-08_JPRB,2.70910E-08_JPRB,& |
|---|
| 516 | & 2.85950E-08_JPRB,3.01689E-08_JPRB,3.18155E-08_JPRB,3.35373E-08_JPRB,3.53372E-08_JPRB,& |
|---|
| 517 | & 3.72177E-08_JPRB,3.91818E-08_JPRB,4.12325E-08_JPRB,4.33727E-08_JPRB,4.56056E-08_JPRB,& |
|---|
| 518 | & 4.79342E-08_JPRB,5.03617E-08_JPRB,5.28915E-08_JPRB,5.55270E-08_JPRB,5.82715E-08_JPRB,& |
|---|
| 519 | & 6.11286E-08_JPRB,6.41019E-08_JPRB,6.71951E-08_JPRB,7.04119E-08_JPRB,7.37560E-08_JPRB,& |
|---|
| 520 | & 7.72315E-08_JPRB,8.08424E-08_JPRB,8.45927E-08_JPRB,8.84866E-08_JPRB,9.25281E-08_JPRB,& |
|---|
| 521 | & 9.67218E-08_JPRB,1.01072E-07_JPRB,1.05583E-07_JPRB,1.10260E-07_JPRB,1.15107E-07_JPRB,& |
|---|
| 522 | & 1.20128E-07_JPRB,1.25330E-07_JPRB,1.30716E-07_JPRB,1.36291E-07_JPRB,1.42061E-07_JPRB,& |
|---|
| 523 | & 1.48031E-07_JPRB,1.54206E-07_JPRB,1.60592E-07_JPRB,1.67192E-07_JPRB,1.74015E-07_JPRB,& |
|---|
| 524 | & 1.81064E-07_JPRB,1.88345E-07_JPRB,1.95865E-07_JPRB,2.03628E-07_JPRB,2.11643E-07_JPRB,& |
|---|
| 525 | & 2.19912E-07_JPRB,2.28443E-07_JPRB,2.37244E-07_JPRB,2.46318E-07_JPRB,2.55673E-07_JPRB,& |
|---|
| 526 | & 2.65316E-07_JPRB,2.75252E-07_JPRB,2.85489E-07_JPRB,2.96033E-07_JPRB,3.06891E-07_JPRB,& |
|---|
| 527 | & 3.18070E-07_JPRB,3.29576E-07_JPRB,3.41417E-07_JPRB,3.53600E-07_JPRB,3.66133E-07_JPRB,& |
|---|
| 528 | & 3.79021E-07_JPRB,3.92274E-07_JPRB,4.05897E-07_JPRB,4.19899E-07_JPRB,4.34288E-07_JPRB,& |
|---|
| 529 | & 4.49071E-07_JPRB,4.64255E-07_JPRB,4.79850E-07_JPRB,4.95863E-07_JPRB,5.12300E-07_JPRB,& |
|---|
| 530 | & 5.29172E-07_JPRB,5.46486E-07_JPRB,5.64250E-07_JPRB,5.82473E-07_JPRB,6.01164E-07_JPRB,& |
|---|
| 531 | & 6.20329E-07_JPRB,6.39979E-07_JPRB,6.60122E-07_JPRB,6.80767E-07_JPRB,7.01922E-07_JPRB,& |
|---|
| 532 | & 7.23596E-07_JPRB,7.45800E-07_JPRB,7.68539E-07_JPRB,7.91826E-07_JPRB,8.15669E-07_JPRB,& |
|---|
| 533 | & 8.40076E-07_JPRB,8.65058E-07_JPRB,8.90623E-07_JPRB,9.16783E-07_JPRB,9.43544E-07_JPRB,& |
|---|
| 534 | & 9.70917E-07_JPRB,9.98912E-07_JPRB,1.02754E-06_JPRB,1.05681E-06_JPRB,1.08673E-06_JPRB,& |
|---|
| 535 | & 1.11731E-06_JPRB,1.14856E-06_JPRB,1.18050E-06_JPRB,1.21312E-06_JPRB,1.24645E-06_JPRB,& |
|---|
| 536 | & 1.28049E-06_JPRB/) |
|---|
| 537 | |
|---|
| 538 | TOTPLNK( :,14) = (/& |
|---|
| 539 | & 1.40113E-11_JPRB,1.59358E-11_JPRB,1.80960E-11_JPRB,2.05171E-11_JPRB,2.32266E-11_JPRB,& |
|---|
| 540 | & 2.62546E-11_JPRB,2.96335E-11_JPRB,3.33990E-11_JPRB,3.75896E-11_JPRB,4.22469E-11_JPRB,& |
|---|
| 541 | & 4.74164E-11_JPRB,5.31466E-11_JPRB,5.94905E-11_JPRB,6.65054E-11_JPRB,7.42522E-11_JPRB,& |
|---|
| 542 | & 8.27975E-11_JPRB,9.22122E-11_JPRB,1.02573E-10_JPRB,1.13961E-10_JPRB,1.26466E-10_JPRB,& |
|---|
| 543 | & 1.40181E-10_JPRB,1.55206E-10_JPRB,1.71651E-10_JPRB,1.89630E-10_JPRB,2.09265E-10_JPRB,& |
|---|
| 544 | & 2.30689E-10_JPRB,2.54040E-10_JPRB,2.79467E-10_JPRB,3.07128E-10_JPRB,3.37190E-10_JPRB,& |
|---|
| 545 | & 3.69833E-10_JPRB,4.05243E-10_JPRB,4.43623E-10_JPRB,4.85183E-10_JPRB,5.30149E-10_JPRB,& |
|---|
| 546 | & 5.78755E-10_JPRB,6.31255E-10_JPRB,6.87910E-10_JPRB,7.49002E-10_JPRB,8.14824E-10_JPRB,& |
|---|
| 547 | & 8.85687E-10_JPRB,9.61914E-10_JPRB,1.04385E-09_JPRB,1.13186E-09_JPRB,1.22631E-09_JPRB,& |
|---|
| 548 | & 1.32761E-09_JPRB,1.43617E-09_JPRB,1.55243E-09_JPRB,1.67686E-09_JPRB,1.80992E-09_JPRB,& |
|---|
| 549 | & 1.95212E-09_JPRB,2.10399E-09_JPRB,2.26607E-09_JPRB,2.43895E-09_JPRB,2.62321E-09_JPRB,& |
|---|
| 550 | & 2.81949E-09_JPRB,3.02844E-09_JPRB,3.25073E-09_JPRB,3.48707E-09_JPRB,3.73820E-09_JPRB,& |
|---|
| 551 | & 4.00490E-09_JPRB,4.28794E-09_JPRB,4.58819E-09_JPRB,4.90647E-09_JPRB,5.24371E-09_JPRB,& |
|---|
| 552 | & 5.60081E-09_JPRB,5.97875E-09_JPRB,6.37854E-09_JPRB,6.80120E-09_JPRB,7.24782E-09_JPRB,& |
|---|
| 553 | & 7.71950E-09_JPRB,8.21740E-09_JPRB,8.74271E-09_JPRB,9.29666E-09_JPRB,9.88054E-09_JPRB,& |
|---|
| 554 | & 1.04956E-08_JPRB,1.11434E-08_JPRB,1.18251E-08_JPRB,1.25422E-08_JPRB,1.32964E-08_JPRB,& |
|---|
| 555 | & 1.40890E-08_JPRB,1.49217E-08_JPRB,1.57961E-08_JPRB,1.67140E-08_JPRB,1.76771E-08_JPRB,& |
|---|
| 556 | & 1.86870E-08_JPRB,1.97458E-08_JPRB,2.08553E-08_JPRB,2.20175E-08_JPRB,2.32342E-08_JPRB,& |
|---|
| 557 | & 2.45077E-08_JPRB,2.58401E-08_JPRB,2.72334E-08_JPRB,2.86900E-08_JPRB,3.02122E-08_JPRB,& |
|---|
| 558 | & 3.18021E-08_JPRB,3.34624E-08_JPRB,3.51954E-08_JPRB,3.70037E-08_JPRB,3.88899E-08_JPRB,& |
|---|
| 559 | & 4.08568E-08_JPRB,4.29068E-08_JPRB,4.50429E-08_JPRB,4.72678E-08_JPRB,4.95847E-08_JPRB,& |
|---|
| 560 | & 5.19963E-08_JPRB,5.45058E-08_JPRB,5.71161E-08_JPRB,5.98309E-08_JPRB,6.26529E-08_JPRB,& |
|---|
| 561 | & 6.55857E-08_JPRB,6.86327E-08_JPRB,7.17971E-08_JPRB,7.50829E-08_JPRB,7.84933E-08_JPRB,& |
|---|
| 562 | & 8.20323E-08_JPRB,8.57035E-08_JPRB,8.95105E-08_JPRB,9.34579E-08_JPRB,9.75488E-08_JPRB,& |
|---|
| 563 | & 1.01788E-07_JPRB,1.06179E-07_JPRB,1.10727E-07_JPRB,1.15434E-07_JPRB,1.20307E-07_JPRB,& |
|---|
| 564 | & 1.25350E-07_JPRB,1.30566E-07_JPRB,1.35961E-07_JPRB,1.41539E-07_JPRB,1.47304E-07_JPRB,& |
|---|
| 565 | & 1.53263E-07_JPRB,1.59419E-07_JPRB,1.65778E-07_JPRB,1.72345E-07_JPRB,1.79124E-07_JPRB,& |
|---|
| 566 | & 1.86122E-07_JPRB,1.93343E-07_JPRB,2.00792E-07_JPRB,2.08476E-07_JPRB,2.16400E-07_JPRB,& |
|---|
| 567 | & 2.24568E-07_JPRB,2.32988E-07_JPRB,2.41666E-07_JPRB,2.50605E-07_JPRB,2.59813E-07_JPRB,& |
|---|
| 568 | & 2.69297E-07_JPRB,2.79060E-07_JPRB,2.89111E-07_JPRB,2.99455E-07_JPRB,3.10099E-07_JPRB,& |
|---|
| 569 | & 3.21049E-07_JPRB,3.32311E-07_JPRB,3.43893E-07_JPRB,3.55801E-07_JPRB,3.68041E-07_JPRB,& |
|---|
| 570 | & 3.80621E-07_JPRB,3.93547E-07_JPRB,4.06826E-07_JPRB,4.20465E-07_JPRB,4.34473E-07_JPRB,& |
|---|
| 571 | & 4.48856E-07_JPRB,4.63620E-07_JPRB,4.78774E-07_JPRB,4.94325E-07_JPRB,5.10280E-07_JPRB,& |
|---|
| 572 | & 5.26648E-07_JPRB,5.43436E-07_JPRB,5.60652E-07_JPRB,5.78302E-07_JPRB,5.96397E-07_JPRB,& |
|---|
| 573 | & 6.14943E-07_JPRB,6.33949E-07_JPRB,6.53421E-07_JPRB,6.73370E-07_JPRB,6.93803E-07_JPRB,& |
|---|
| 574 | & 7.14731E-07_JPRB,7.36157E-07_JPRB,7.58095E-07_JPRB,7.80549E-07_JPRB,8.03533E-07_JPRB,& |
|---|
| 575 | & 8.27050E-07_JPRB/) |
|---|
| 576 | |
|---|
| 577 | TOTPLNK( :,15) = (/& |
|---|
| 578 | & 3.90483E-12_JPRB,4.47999E-12_JPRB,5.13122E-12_JPRB,5.86739E-12_JPRB,6.69829E-12_JPRB,& |
|---|
| 579 | & 7.63467E-12_JPRB,8.68833E-12_JPRB,9.87221E-12_JPRB,1.12005E-11_JPRB,1.26885E-11_JPRB,& |
|---|
| 580 | & 1.43534E-11_JPRB,1.62134E-11_JPRB,1.82888E-11_JPRB,2.06012E-11_JPRB,2.31745E-11_JPRB,& |
|---|
| 581 | & 2.60343E-11_JPRB,2.92087E-11_JPRB,3.27277E-11_JPRB,3.66242E-11_JPRB,4.09334E-11_JPRB,& |
|---|
| 582 | & 4.56935E-11_JPRB,5.09455E-11_JPRB,5.67338E-11_JPRB,6.31057E-11_JPRB,7.01127E-11_JPRB,& |
|---|
| 583 | & 7.78096E-11_JPRB,8.62554E-11_JPRB,9.55130E-11_JPRB,1.05651E-10_JPRB,1.16740E-10_JPRB,& |
|---|
| 584 | & 1.28858E-10_JPRB,1.42089E-10_JPRB,1.56519E-10_JPRB,1.72243E-10_JPRB,1.89361E-10_JPRB,& |
|---|
| 585 | & 2.07978E-10_JPRB,2.28209E-10_JPRB,2.50173E-10_JPRB,2.73999E-10_JPRB,2.99820E-10_JPRB,& |
|---|
| 586 | & 3.27782E-10_JPRB,3.58034E-10_JPRB,3.90739E-10_JPRB,4.26067E-10_JPRB,4.64196E-10_JPRB,& |
|---|
| 587 | & 5.05317E-10_JPRB,5.49631E-10_JPRB,5.97347E-10_JPRB,6.48689E-10_JPRB,7.03891E-10_JPRB,& |
|---|
| 588 | & 7.63201E-10_JPRB,8.26876E-10_JPRB,8.95192E-10_JPRB,9.68430E-10_JPRB,1.04690E-09_JPRB,& |
|---|
| 589 | & 1.13091E-09_JPRB,1.22079E-09_JPRB,1.31689E-09_JPRB,1.41957E-09_JPRB,1.52922E-09_JPRB,& |
|---|
| 590 | & 1.64623E-09_JPRB,1.77101E-09_JPRB,1.90401E-09_JPRB,2.04567E-09_JPRB,2.19647E-09_JPRB,& |
|---|
| 591 | & 2.35690E-09_JPRB,2.52749E-09_JPRB,2.70875E-09_JPRB,2.90127E-09_JPRB,3.10560E-09_JPRB,& |
|---|
| 592 | & 3.32238E-09_JPRB,3.55222E-09_JPRB,3.79578E-09_JPRB,4.05375E-09_JPRB,4.32682E-09_JPRB,& |
|---|
| 593 | & 4.61574E-09_JPRB,4.92128E-09_JPRB,5.24420E-09_JPRB,5.58536E-09_JPRB,5.94558E-09_JPRB,& |
|---|
| 594 | & 6.32575E-09_JPRB,6.72678E-09_JPRB,7.14964E-09_JPRB,7.59526E-09_JPRB,8.06470E-09_JPRB,& |
|---|
| 595 | & 8.55897E-09_JPRB,9.07916E-09_JPRB,9.62638E-09_JPRB,1.02018E-08_JPRB,1.08066E-08_JPRB,& |
|---|
| 596 | & 1.14420E-08_JPRB,1.21092E-08_JPRB,1.28097E-08_JPRB,1.35446E-08_JPRB,1.43155E-08_JPRB,& |
|---|
| 597 | & 1.51237E-08_JPRB,1.59708E-08_JPRB,1.68581E-08_JPRB,1.77873E-08_JPRB,1.87599E-08_JPRB,& |
|---|
| 598 | & 1.97777E-08_JPRB,2.08423E-08_JPRB,2.19555E-08_JPRB,2.31190E-08_JPRB,2.43348E-08_JPRB,& |
|---|
| 599 | & 2.56045E-08_JPRB,2.69302E-08_JPRB,2.83140E-08_JPRB,2.97578E-08_JPRB,3.12636E-08_JPRB,& |
|---|
| 600 | & 3.28337E-08_JPRB,3.44702E-08_JPRB,3.61755E-08_JPRB,3.79516E-08_JPRB,3.98012E-08_JPRB,& |
|---|
| 601 | & 4.17265E-08_JPRB,4.37300E-08_JPRB,4.58143E-08_JPRB,4.79819E-08_JPRB,5.02355E-08_JPRB,& |
|---|
| 602 | & 5.25777E-08_JPRB,5.50114E-08_JPRB,5.75393E-08_JPRB,6.01644E-08_JPRB,6.28896E-08_JPRB,& |
|---|
| 603 | & 6.57177E-08_JPRB,6.86521E-08_JPRB,7.16959E-08_JPRB,7.48520E-08_JPRB,7.81239E-08_JPRB,& |
|---|
| 604 | & 8.15148E-08_JPRB,8.50282E-08_JPRB,8.86675E-08_JPRB,9.24362E-08_JPRB,9.63380E-08_JPRB,& |
|---|
| 605 | & 1.00376E-07_JPRB,1.04555E-07_JPRB,1.08878E-07_JPRB,1.13349E-07_JPRB,1.17972E-07_JPRB,& |
|---|
| 606 | & 1.22751E-07_JPRB,1.27690E-07_JPRB,1.32793E-07_JPRB,1.38064E-07_JPRB,1.43508E-07_JPRB,& |
|---|
| 607 | & 1.49129E-07_JPRB,1.54931E-07_JPRB,1.60920E-07_JPRB,1.67099E-07_JPRB,1.73473E-07_JPRB,& |
|---|
| 608 | & 1.80046E-07_JPRB,1.86825E-07_JPRB,1.93812E-07_JPRB,2.01014E-07_JPRB,2.08436E-07_JPRB,& |
|---|
| 609 | & 2.16082E-07_JPRB,2.23957E-07_JPRB,2.32067E-07_JPRB,2.40418E-07_JPRB,2.49013E-07_JPRB,& |
|---|
| 610 | & 2.57860E-07_JPRB,2.66963E-07_JPRB,2.76328E-07_JPRB,2.85961E-07_JPRB,2.95868E-07_JPRB,& |
|---|
| 611 | & 3.06053E-07_JPRB,3.16524E-07_JPRB,3.27286E-07_JPRB,3.38345E-07_JPRB,3.49707E-07_JPRB,& |
|---|
| 612 | & 3.61379E-07_JPRB,3.73367E-07_JPRB,3.85676E-07_JPRB,3.98315E-07_JPRB,4.11287E-07_JPRB,& |
|---|
| 613 | & 4.24602E-07_JPRB,4.38265E-07_JPRB,4.52283E-07_JPRB,4.66662E-07_JPRB,4.81410E-07_JPRB,& |
|---|
| 614 | & 4.96535E-07_JPRB/) |
|---|
| 615 | |
|---|
| 616 | TOTPLNK( :,16) = (/& |
|---|
| 617 | & 4.65378E-13_JPRB,5.41927E-13_JPRB,6.29913E-13_JPRB,7.30869E-13_JPRB,8.46510E-13_JPRB,& |
|---|
| 618 | & 9.78750E-13_JPRB,1.12972E-12_JPRB,1.30181E-12_JPRB,1.49764E-12_JPRB,1.72016E-12_JPRB,& |
|---|
| 619 | & 1.97260E-12_JPRB,2.25858E-12_JPRB,2.58206E-12_JPRB,2.94744E-12_JPRB,3.35955E-12_JPRB,& |
|---|
| 620 | & 3.82372E-12_JPRB,4.34581E-12_JPRB,4.93225E-12_JPRB,5.59010E-12_JPRB,6.32711E-12_JPRB,& |
|---|
| 621 | & 7.15171E-12_JPRB,8.07317E-12_JPRB,9.10159E-12_JPRB,1.02480E-11_JPRB,1.15244E-11_JPRB,& |
|---|
| 622 | & 1.29438E-11_JPRB,1.45204E-11_JPRB,1.62697E-11_JPRB,1.82084E-11_JPRB,2.03545E-11_JPRB,& |
|---|
| 623 | & 2.27278E-11_JPRB,2.53494E-11_JPRB,2.82424E-11_JPRB,3.14313E-11_JPRB,3.49431E-11_JPRB,& |
|---|
| 624 | & 3.88064E-11_JPRB,4.30522E-11_JPRB,4.77139E-11_JPRB,5.28273E-11_JPRB,5.84308E-11_JPRB,& |
|---|
| 625 | & 6.45658E-11_JPRB,7.12764E-11_JPRB,7.86103E-11_JPRB,8.66176E-11_JPRB,9.53534E-11_JPRB,& |
|---|
| 626 | & 1.04875E-10_JPRB,1.15245E-10_JPRB,1.26528E-10_JPRB,1.38796E-10_JPRB,1.52123E-10_JPRB,& |
|---|
| 627 | & 1.66590E-10_JPRB,1.82281E-10_JPRB,1.99287E-10_JPRB,2.17704E-10_JPRB,2.37632E-10_JPRB,& |
|---|
| 628 | & 2.59182E-10_JPRB,2.82468E-10_JPRB,3.07610E-10_JPRB,3.34738E-10_JPRB,3.63988E-10_JPRB,& |
|---|
| 629 | & 3.95504E-10_JPRB,4.29438E-10_JPRB,4.65951E-10_JPRB,5.05212E-10_JPRB,5.47402E-10_JPRB,& |
|---|
| 630 | & 5.92707E-10_JPRB,6.41329E-10_JPRB,6.93477E-10_JPRB,7.49371E-10_JPRB,8.09242E-10_JPRB,& |
|---|
| 631 | & 8.73338E-10_JPRB,9.41911E-10_JPRB,1.01524E-09_JPRB,1.09359E-09_JPRB,1.17728E-09_JPRB,& |
|---|
| 632 | & 1.26660E-09_JPRB,1.36190E-09_JPRB,1.46350E-09_JPRB,1.57177E-09_JPRB,1.68709E-09_JPRB,& |
|---|
| 633 | & 1.80984E-09_JPRB,1.94044E-09_JPRB,2.07932E-09_JPRB,2.22693E-09_JPRB,2.38373E-09_JPRB,& |
|---|
| 634 | & 2.55021E-09_JPRB,2.72689E-09_JPRB,2.91429E-09_JPRB,3.11298E-09_JPRB,3.32353E-09_JPRB,& |
|---|
| 635 | & 3.54655E-09_JPRB,3.78265E-09_JPRB,4.03251E-09_JPRB,4.29679E-09_JPRB,4.57620E-09_JPRB,& |
|---|
| 636 | & 4.87148E-09_JPRB,5.18341E-09_JPRB,5.51276E-09_JPRB,5.86037E-09_JPRB,6.22708E-09_JPRB,& |
|---|
| 637 | & 6.61381E-09_JPRB,7.02145E-09_JPRB,7.45097E-09_JPRB,7.90336E-09_JPRB,8.37967E-09_JPRB,& |
|---|
| 638 | & 8.88092E-09_JPRB,9.40827E-09_JPRB,9.96280E-09_JPRB,1.05457E-08_JPRB,1.11583E-08_JPRB,& |
|---|
| 639 | & 1.18017E-08_JPRB,1.24773E-08_JPRB,1.31865E-08_JPRB,1.39306E-08_JPRB,1.47111E-08_JPRB,& |
|---|
| 640 | & 1.55295E-08_JPRB,1.63872E-08_JPRB,1.72860E-08_JPRB,1.82274E-08_JPRB,1.92132E-08_JPRB,& |
|---|
| 641 | & 2.02450E-08_JPRB,2.13247E-08_JPRB,2.24541E-08_JPRB,2.36352E-08_JPRB,2.48699E-08_JPRB,& |
|---|
| 642 | & 2.61602E-08_JPRB,2.75082E-08_JPRB,2.89161E-08_JPRB,3.03860E-08_JPRB,3.19203E-08_JPRB,& |
|---|
| 643 | & 3.35213E-08_JPRB,3.51913E-08_JPRB,3.69330E-08_JPRB,3.87486E-08_JPRB,4.06411E-08_JPRB,& |
|---|
| 644 | & 4.26129E-08_JPRB,4.46668E-08_JPRB,4.68058E-08_JPRB,4.90325E-08_JPRB,5.13502E-08_JPRB,& |
|---|
| 645 | & 5.37617E-08_JPRB,5.62703E-08_JPRB,5.88791E-08_JPRB,6.15915E-08_JPRB,6.44107E-08_JPRB,& |
|---|
| 646 | & 6.73404E-08_JPRB,7.03841E-08_JPRB,7.35453E-08_JPRB,7.68278E-08_JPRB,8.02355E-08_JPRB,& |
|---|
| 647 | & 8.37721E-08_JPRB,8.74419E-08_JPRB,9.12486E-08_JPRB,9.51968E-08_JPRB,9.92905E-08_JPRB,& |
|---|
| 648 | & 1.03534E-07_JPRB,1.07932E-07_JPRB,1.12490E-07_JPRB,1.17211E-07_JPRB,1.22100E-07_JPRB,& |
|---|
| 649 | & 1.27163E-07_JPRB,1.32404E-07_JPRB,1.37829E-07_JPRB,1.43443E-07_JPRB,1.49250E-07_JPRB,& |
|---|
| 650 | & 1.55257E-07_JPRB,1.61470E-07_JPRB,1.67893E-07_JPRB,1.74532E-07_JPRB,1.81394E-07_JPRB,& |
|---|
| 651 | & 1.88485E-07_JPRB,1.95810E-07_JPRB,2.03375E-07_JPRB,2.11189E-07_JPRB,2.19256E-07_JPRB,& |
|---|
| 652 | & 2.27583E-07_JPRB,2.36177E-07_JPRB,2.45046E-07_JPRB,2.54196E-07_JPRB,2.63634E-07_JPRB,& |
|---|
| 653 | & 2.73367E-07_JPRB/) |
|---|
| 654 | |
|---|
| 655 | TOTPLK16( :) = (/& |
|---|
| 656 | & 4.46128E-13_JPRB,5.19008E-13_JPRB,6.02681E-13_JPRB,6.98580E-13_JPRB,8.08302E-13_JPRB,& |
|---|
| 657 | & 9.33629E-13_JPRB,1.07654E-12_JPRB,1.23925E-12_JPRB,1.42419E-12_JPRB,1.63407E-12_JPRB,& |
|---|
| 658 | & 1.87190E-12_JPRB,2.14099E-12_JPRB,2.44498E-12_JPRB,2.78793E-12_JPRB,3.17424E-12_JPRB,& |
|---|
| 659 | & 3.60881E-12_JPRB,4.09698E-12_JPRB,4.64461E-12_JPRB,5.25813E-12_JPRB,5.94456E-12_JPRB,& |
|---|
| 660 | & 6.71156E-12_JPRB,7.56752E-12_JPRB,8.52154E-12_JPRB,9.58357E-12_JPRB,1.07644E-11_JPRB,& |
|---|
| 661 | & 1.20758E-11_JPRB,1.35304E-11_JPRB,1.51420E-11_JPRB,1.69256E-11_JPRB,1.88973E-11_JPRB,& |
|---|
| 662 | & 2.10746E-11_JPRB,2.34762E-11_JPRB,2.61227E-11_JPRB,2.90356E-11_JPRB,3.22388E-11_JPRB,& |
|---|
| 663 | & 3.57574E-11_JPRB,3.96187E-11_JPRB,4.38519E-11_JPRB,4.84883E-11_JPRB,5.35616E-11_JPRB,& |
|---|
| 664 | & 5.91075E-11_JPRB,6.51647E-11_JPRB,7.17743E-11_JPRB,7.89797E-11_JPRB,8.68284E-11_JPRB,& |
|---|
| 665 | & 9.53697E-11_JPRB,1.04658E-10_JPRB,1.14748E-10_JPRB,1.25701E-10_JPRB,1.37582E-10_JPRB,& |
|---|
| 666 | & 1.50457E-10_JPRB,1.64400E-10_JPRB,1.79487E-10_JPRB,1.95799E-10_JPRB,2.13422E-10_JPRB,& |
|---|
| 667 | & 2.32446E-10_JPRB,2.52970E-10_JPRB,2.75094E-10_JPRB,2.98925E-10_JPRB,3.24578E-10_JPRB,& |
|---|
| 668 | & 3.52172E-10_JPRB,3.81833E-10_JPRB,4.13695E-10_JPRB,4.47897E-10_JPRB,4.84588E-10_JPRB,& |
|---|
| 669 | & 5.23922E-10_JPRB,5.66063E-10_JPRB,6.11182E-10_JPRB,6.59459E-10_JPRB,7.11081E-10_JPRB,& |
|---|
| 670 | & 7.66251E-10_JPRB,8.25172E-10_JPRB,8.88065E-10_JPRB,9.55155E-10_JPRB,1.02668E-09_JPRB,& |
|---|
| 671 | & 1.10290E-09_JPRB,1.18406E-09_JPRB,1.27044E-09_JPRB,1.36233E-09_JPRB,1.46002E-09_JPRB,& |
|---|
| 672 | & 1.56382E-09_JPRB,1.67406E-09_JPRB,1.79108E-09_JPRB,1.91522E-09_JPRB,2.04686E-09_JPRB,& |
|---|
| 673 | & 2.18637E-09_JPRB,2.33416E-09_JPRB,2.49063E-09_JPRB,2.65622E-09_JPRB,2.83136E-09_JPRB,& |
|---|
| 674 | & 3.01653E-09_JPRB,3.21221E-09_JPRB,3.41890E-09_JPRB,3.63712E-09_JPRB,3.86740E-09_JPRB,& |
|---|
| 675 | & 4.11030E-09_JPRB,4.36641E-09_JPRB,4.63631E-09_JPRB,4.92064E-09_JPRB,5.22003E-09_JPRB,& |
|---|
| 676 | & 5.53516E-09_JPRB,5.86670E-09_JPRB,6.21538E-09_JPRB,6.58191E-09_JPRB,6.96708E-09_JPRB,& |
|---|
| 677 | & 7.37165E-09_JPRB,7.79645E-09_JPRB,8.24229E-09_JPRB,8.71007E-09_JPRB,9.20066E-09_JPRB,& |
|---|
| 678 | & 9.71498E-09_JPRB,1.02540E-08_JPRB,1.08186E-08_JPRB,1.14100E-08_JPRB,1.20290E-08_JPRB,& |
|---|
| 679 | & 1.26767E-08_JPRB,1.33544E-08_JPRB,1.40630E-08_JPRB,1.48038E-08_JPRB,1.55780E-08_JPRB,& |
|---|
| 680 | & 1.63867E-08_JPRB,1.72313E-08_JPRB,1.81130E-08_JPRB,1.90332E-08_JPRB,1.99932E-08_JPRB,& |
|---|
| 681 | & 2.09945E-08_JPRB,2.20385E-08_JPRB,2.31267E-08_JPRB,2.42605E-08_JPRB,2.54416E-08_JPRB,& |
|---|
| 682 | & 2.66716E-08_JPRB,2.79520E-08_JPRB,2.92846E-08_JPRB,3.06711E-08_JPRB,3.21133E-08_JPRB,& |
|---|
| 683 | & 3.36128E-08_JPRB,3.51717E-08_JPRB,3.67918E-08_JPRB,3.84749E-08_JPRB,4.02232E-08_JPRB,& |
|---|
| 684 | & 4.20386E-08_JPRB,4.39231E-08_JPRB,4.58790E-08_JPRB,4.79083E-08_JPRB,5.00132E-08_JPRB,& |
|---|
| 685 | & 5.21961E-08_JPRB,5.44592E-08_JPRB,5.68049E-08_JPRB,5.92356E-08_JPRB,6.17537E-08_JPRB,& |
|---|
| 686 | & 6.43617E-08_JPRB,6.70622E-08_JPRB,6.98578E-08_JPRB,7.27511E-08_JPRB,7.57449E-08_JPRB,& |
|---|
| 687 | & 7.88419E-08_JPRB,8.20449E-08_JPRB,8.53568E-08_JPRB,8.87805E-08_JPRB,9.23190E-08_JPRB,& |
|---|
| 688 | & 9.59753E-08_JPRB,9.97526E-08_JPRB,1.03654E-07_JPRB,1.07682E-07_JPRB,1.11841E-07_JPRB,& |
|---|
| 689 | & 1.16134E-07_JPRB,1.20564E-07_JPRB,1.25135E-07_JPRB,1.29850E-07_JPRB,1.34712E-07_JPRB,& |
|---|
| 690 | & 1.39726E-07_JPRB,1.44894E-07_JPRB,1.50221E-07_JPRB,1.55711E-07_JPRB,1.61367E-07_JPRB,& |
|---|
| 691 | & 1.67193E-07_JPRB,1.73193E-07_JPRB,1.79371E-07_JPRB,1.85732E-07_JPRB,1.92279E-07_JPRB,& |
|---|
| 692 | & 1.99016E-07_JPRB/) |
|---|
| 693 | ! ----------------------------------------------------------------- |
|---|
| 694 | IF (LHOOK) CALL DR_HOOK('SURRTPK',1,ZHOOK_HANDLE) |
|---|
| 695 | END SUBROUTINE SURRTPK |
|---|
