GCC Code Coverage Report


Directory: ./
File: rad/surrtpk.f90
Date: 2022-01-11 19:19:34
Exec Total Coverage
Lines: 27 27 100.0%
Branches: 34 36 94.4%

Line Branch Exec Source
1 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
1/2
✓ Branch 0 taken 1 times.
✗ Branch 1 not taken.
1 IF (LHOOK) CALL DR_HOOK('SURRTPK',0,ZHOOK_HANDLE)
18 1 NG( :) = (/16,16,16,16,16,16,16,16,16,16,16,16,16,16,16,16/)
19 1 NSPA( :) = (/1, 1,10, 9, 9, 1, 9, 1,11, 1, 1, 9, 9, 1, 9, 9/)
20 1 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 1 & ,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 1 & ,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 1 & , 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
2/2
✓ Branch 0 taken 1 times.
✓ Branch 1 taken 181 times.
182 & 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
2/2
✓ Branch 0 taken 1 times.
✓ Branch 1 taken 181 times.
182 & 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/2
✓ Branch 0 taken 1 times.
✓ Branch 1 taken 181 times.
182 & 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/2
✓ Branch 0 taken 1 times.
✓ Branch 1 taken 181 times.
182 & 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/2
✓ Branch 0 taken 1 times.
✓ Branch 1 taken 181 times.
182 & 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
2/2
✓ Branch 0 taken 1 times.
✓ Branch 1 taken 181 times.
182 & 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
2/2
✓ Branch 0 taken 1 times.
✓ Branch 1 taken 181 times.
182 & 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
2/2
✓ Branch 0 taken 1 times.
✓ Branch 1 taken 181 times.
182 & 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
2/2
✓ Branch 0 taken 1 times.
✓ Branch 1 taken 181 times.
182 & 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
2/2
✓ Branch 0 taken 1 times.
✓ Branch 1 taken 181 times.
182 & 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
2/2
✓ Branch 0 taken 1 times.
✓ Branch 1 taken 181 times.
182 & 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/2
✓ Branch 0 taken 1 times.
✓ Branch 1 taken 181 times.
182 & 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
2/2
✓ Branch 0 taken 1 times.
✓ Branch 1 taken 181 times.
182 & 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
2/2
✓ Branch 0 taken 1 times.
✓ Branch 1 taken 181 times.
182 & 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
2/2
✓ Branch 0 taken 1 times.
✓ Branch 1 taken 181 times.
182 & 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/2
✓ Branch 0 taken 181 times.
✓ Branch 1 taken 1 times.
182 & 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 & 1.99016E-07_JPRB/)
693 ! -----------------------------------------------------------------
694
1/2
✓ Branch 0 taken 1 times.
✗ Branch 1 not taken.
1 IF (LHOOK) CALL DR_HOOK('SURRTPK',1,ZHOOK_HANDLE)
695 1 END SUBROUTINE SURRTPK
696