Directory:  ./ 

File:  rad/surrtpk.f90 
Date:  20220111 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.13735E06_JPRB,1.15150E06_JPRB,1.16569E06_JPRB,1.17992E06_JPRB,1.19419E06_JPRB,&  
33  & 1.20850E06_JPRB,1.22285E06_JPRB,1.23723E06_JPRB,1.25164E06_JPRB,1.26610E06_JPRB,&  
34  & 1.28059E06_JPRB,1.29511E06_JPRB,1.30967E06_JPRB,1.32426E06_JPRB,1.33889E06_JPRB,&  
35  & 1.35355E06_JPRB,1.36824E06_JPRB,1.38296E06_JPRB,1.39772E06_JPRB,1.41250E06_JPRB,&  
36  & 1.42732E06_JPRB,1.44217E06_JPRB,1.45704E06_JPRB,1.47195E06_JPRB,1.48689E06_JPRB,&  
37  & 1.50185E06_JPRB,1.51684E06_JPRB,1.53186E06_JPRB,1.54691E06_JPRB,1.56198E06_JPRB,&  
38  & 1.57709E06_JPRB,1.59222E06_JPRB,1.60737E06_JPRB,1.62255E06_JPRB,1.63776E06_JPRB,&  
39  & 1.65299E06_JPRB,1.66825E06_JPRB,1.68352E06_JPRB,1.69883E06_JPRB,1.71416E06_JPRB,&  
40  & 1.72951E06_JPRB,1.74488E06_JPRB,1.76028E06_JPRB,1.77570E06_JPRB,1.79114E06_JPRB,&  
41  & 1.80661E06_JPRB,1.82210E06_JPRB,1.83760E06_JPRB,1.85313E06_JPRB,1.86868E06_JPRB,&  
42  & 1.88425E06_JPRB,1.89985E06_JPRB,1.91546E06_JPRB,1.93109E06_JPRB,1.94674E06_JPRB,&  
43  & 1.96241E06_JPRB,1.97811E06_JPRB,1.99381E06_JPRB,2.00954E06_JPRB,2.02529E06_JPRB,&  
44  & 2.04105E06_JPRB,2.05684E06_JPRB,2.07264E06_JPRB,2.08846E06_JPRB,2.10429E06_JPRB,&  
45  & 2.12015E06_JPRB,2.13602E06_JPRB,2.15190E06_JPRB,2.16781E06_JPRB,2.18373E06_JPRB,&  
46  & 2.19966E06_JPRB,2.21562E06_JPRB,2.23159E06_JPRB,2.24758E06_JPRB,2.26358E06_JPRB,&  
47  & 2.27959E06_JPRB,2.29562E06_JPRB,2.31167E06_JPRB,2.32773E06_JPRB,2.34381E06_JPRB,&  
48  & 2.35990E06_JPRB,2.37601E06_JPRB,2.39212E06_JPRB,2.40825E06_JPRB,2.42440E06_JPRB,&  
49  & 2.44056E06_JPRB,2.45673E06_JPRB,2.47292E06_JPRB,2.48912E06_JPRB,2.50533E06_JPRB,&  
50  & 2.52157E06_JPRB,2.53781E06_JPRB,2.55406E06_JPRB,2.57032E06_JPRB,2.58660E06_JPRB,&  
51  & 2.60289E06_JPRB,2.61919E06_JPRB,2.63550E06_JPRB,2.65183E06_JPRB,2.66817E06_JPRB,&  
52  & 2.68452E06_JPRB,2.70088E06_JPRB,2.71726E06_JPRB,2.73364E06_JPRB,2.75003E06_JPRB,&  
53  & 2.76644E06_JPRB,2.78286E06_JPRB,2.79929E06_JPRB,2.81572E06_JPRB,2.83218E06_JPRB,&  
54  & 2.84864E06_JPRB,2.86510E06_JPRB,2.88159E06_JPRB,2.89807E06_JPRB,2.91458E06_JPRB,&  
55  & 2.93109E06_JPRB,2.94762E06_JPRB,2.96415E06_JPRB,2.98068E06_JPRB,2.99724E06_JPRB,&  
56  & 3.01379E06_JPRB,3.03036E06_JPRB,3.04693E06_JPRB,3.06353E06_JPRB,3.08013E06_JPRB,&  
57  & 3.09674E06_JPRB,3.11335E06_JPRB,3.12998E06_JPRB,3.14661E06_JPRB,3.16324E06_JPRB,&  
58  & 3.17989E06_JPRB,3.19656E06_JPRB,3.21323E06_JPRB,3.22991E06_JPRB,3.24658E06_JPRB,&  
59  & 3.26328E06_JPRB,3.27998E06_JPRB,3.29669E06_JPRB,3.31341E06_JPRB,3.33013E06_JPRB,&  
60  & 3.34686E06_JPRB,3.36360E06_JPRB,3.38034E06_JPRB,3.39709E06_JPRB,3.41387E06_JPRB,&  
61  & 3.43063E06_JPRB,3.44742E06_JPRB,3.46420E06_JPRB,3.48099E06_JPRB,3.49779E06_JPRB,&  
62  & 3.51461E06_JPRB,3.53141E06_JPRB,3.54824E06_JPRB,3.56506E06_JPRB,3.58191E06_JPRB,&  
63  & 3.59875E06_JPRB,3.61559E06_JPRB,3.63244E06_JPRB,3.64931E06_JPRB,3.66617E06_JPRB,&  
64  & 3.68305E06_JPRB,3.69992E06_JPRB,3.71682E06_JPRB,3.73372E06_JPRB,3.75061E06_JPRB,&  
65  & 3.76753E06_JPRB,3.78443E06_JPRB,3.80136E06_JPRB,3.81829E06_JPRB,3.83522E06_JPRB,&  
66  & 3.85215E06_JPRB,3.86910E06_JPRB,3.88605E06_JPRB,3.90301E06_JPRB,3.91997E06_JPRB,&  
67  & 3.93694E06_JPRB,3.95390E06_JPRB,3.97087E06_JPRB,3.98788E06_JPRB,4.00485E06_JPRB,&  
68 
2/2✓ Branch 0 taken 1 times.
✓ Branch 1 taken 181 times.

182  & 4.02187E06_JPRB/) 
69  
70  TOTPLNK( :, 2) = (/&  
71  & 2.13441E06_JPRB,2.18076E06_JPRB,2.22758E06_JPRB,2.27489E06_JPRB,2.32268E06_JPRB,&  
72  & 2.37093E06_JPRB,2.41966E06_JPRB,2.46886E06_JPRB,2.51852E06_JPRB,2.56864E06_JPRB,&  
73  & 2.61922E06_JPRB,2.67026E06_JPRB,2.72175E06_JPRB,2.77370E06_JPRB,2.82609E06_JPRB,&  
74  & 2.87893E06_JPRB,2.93221E06_JPRB,2.98593E06_JPRB,3.04008E06_JPRB,3.09468E06_JPRB,&  
75  & 3.14970E06_JPRB,3.20515E06_JPRB,3.26103E06_JPRB,3.31732E06_JPRB,3.37404E06_JPRB,&  
76  & 3.43118E06_JPRB,3.48873E06_JPRB,3.54669E06_JPRB,3.60506E06_JPRB,3.66383E06_JPRB,&  
77  & 3.72301E06_JPRB,3.78259E06_JPRB,3.84256E06_JPRB,3.90293E06_JPRB,3.96368E06_JPRB,&  
78  & 4.02483E06_JPRB,4.08636E06_JPRB,4.14828E06_JPRB,4.21057E06_JPRB,4.27324E06_JPRB,&  
79  & 4.33629E06_JPRB,4.39971E06_JPRB,4.46350E06_JPRB,4.52765E06_JPRB,4.59217E06_JPRB,&  
80  & 4.65705E06_JPRB,4.72228E06_JPRB,4.78787E06_JPRB,4.85382E06_JPRB,4.92011E06_JPRB,&  
81  & 4.98675E06_JPRB,5.05374E06_JPRB,5.12106E06_JPRB,5.18873E06_JPRB,5.25674E06_JPRB,&  
82  & 5.32507E06_JPRB,5.39374E06_JPRB,5.46274E06_JPRB,5.53207E06_JPRB,5.60172E06_JPRB,&  
83  & 5.67169E06_JPRB,5.74198E06_JPRB,5.81259E06_JPRB,5.88352E06_JPRB,5.95475E06_JPRB,&  
84  & 6.02629E06_JPRB,6.09815E06_JPRB,6.17030E06_JPRB,6.24276E06_JPRB,6.31552E06_JPRB,&  
85  & 6.38858E06_JPRB,6.46192E06_JPRB,6.53557E06_JPRB,6.60950E06_JPRB,6.68373E06_JPRB,&  
86  & 6.75824E06_JPRB,6.83303E06_JPRB,6.90810E06_JPRB,6.98346E06_JPRB,7.05909E06_JPRB,&  
87  & 7.13500E06_JPRB,7.21117E06_JPRB,7.28763E06_JPRB,7.36435E06_JPRB,7.44134E06_JPRB,&  
88  & 7.51859E06_JPRB,7.59611E06_JPRB,7.67388E06_JPRB,7.75192E06_JPRB,7.83021E06_JPRB,&  
89  & 7.90875E06_JPRB,7.98755E06_JPRB,8.06660E06_JPRB,8.14589E06_JPRB,8.22544E06_JPRB,&  
90  & 8.30522E06_JPRB,8.38526E06_JPRB,8.46553E06_JPRB,8.54604E06_JPRB,8.62679E06_JPRB,&  
91  & 8.70777E06_JPRB,8.78899E06_JPRB,8.87043E06_JPRB,8.95211E06_JPRB,9.03402E06_JPRB,&  
92  & 9.11616E06_JPRB,9.19852E06_JPRB,9.28109E06_JPRB,9.36390E06_JPRB,9.44692E06_JPRB,&  
93  & 9.53015E06_JPRB,9.61361E06_JPRB,9.69729E06_JPRB,9.78117E06_JPRB,9.86526E06_JPRB,&  
94  & 9.94957E06_JPRB,1.00341E05_JPRB,1.01188E05_JPRB,1.02037E05_JPRB,1.02888E05_JPRB,&  
95  & 1.03742E05_JPRB,1.04597E05_JPRB,1.05454E05_JPRB,1.06313E05_JPRB,1.07175E05_JPRB,&  
96  & 1.08038E05_JPRB,1.08903E05_JPRB,1.09770E05_JPRB,1.10639E05_JPRB,1.11509E05_JPRB,&  
97  & 1.12382E05_JPRB,1.13257E05_JPRB,1.14133E05_JPRB,1.15011E05_JPRB,1.15891E05_JPRB,&  
98  & 1.16773E05_JPRB,1.17656E05_JPRB,1.18542E05_JPRB,1.19429E05_JPRB,1.20317E05_JPRB,&  
99  & 1.21208E05_JPRB,1.22100E05_JPRB,1.22994E05_JPRB,1.23890E05_JPRB,1.24787E05_JPRB,&  
100  & 1.25686E05_JPRB,1.26587E05_JPRB,1.27489E05_JPRB,1.28393E05_JPRB,1.29299E05_JPRB,&  
101  & 1.30206E05_JPRB,1.31115E05_JPRB,1.32025E05_JPRB,1.32937E05_JPRB,1.33850E05_JPRB,&  
102  & 1.34765E05_JPRB,1.35682E05_JPRB,1.36600E05_JPRB,1.37520E05_JPRB,1.38441E05_JPRB,&  
103  & 1.39364E05_JPRB,1.40288E05_JPRB,1.41213E05_JPRB,1.42140E05_JPRB,1.43069E05_JPRB,&  
104  & 1.43999E05_JPRB,1.44930E05_JPRB,1.45863E05_JPRB,1.46797E05_JPRB,1.47733E05_JPRB,&  
105  & 1.48670E05_JPRB,1.49608E05_JPRB,1.50548E05_JPRB,1.51489E05_JPRB,1.52431E05_JPRB,&  
106  & 1.53375E05_JPRB,1.54320E05_JPRB,1.55267E05_JPRB,1.56214E05_JPRB,1.57164E05_JPRB,&  
107 
2/2✓ Branch 0 taken 1 times.
✓ Branch 1 taken 181 times.

182  & 1.58114E05_JPRB/) 
108  
109  TOTPLNK( :, 3) = (/&  
110  & 1.34822E06_JPRB,1.39134E06_JPRB,1.43530E06_JPRB,1.48010E06_JPRB,1.52574E06_JPRB,&  
111  & 1.57222E06_JPRB,1.61956E06_JPRB,1.66774E06_JPRB,1.71678E06_JPRB,1.76666E06_JPRB,&  
112  & 1.81741E06_JPRB,1.86901E06_JPRB,1.92147E06_JPRB,1.97479E06_JPRB,2.02898E06_JPRB,&  
113  & 2.08402E06_JPRB,2.13993E06_JPRB,2.19671E06_JPRB,2.25435E06_JPRB,2.31285E06_JPRB,&  
114  & 2.37222E06_JPRB,2.43246E06_JPRB,2.49356E06_JPRB,2.55553E06_JPRB,2.61837E06_JPRB,&  
115  & 2.68207E06_JPRB,2.74664E06_JPRB,2.81207E06_JPRB,2.87837E06_JPRB,2.94554E06_JPRB,&  
116  & 3.01356E06_JPRB,3.08245E06_JPRB,3.15221E06_JPRB,3.22282E06_JPRB,3.29429E06_JPRB,&  
117  & 3.36662E06_JPRB,3.43982E06_JPRB,3.51386E06_JPRB,3.58876E06_JPRB,3.66451E06_JPRB,&  
118  & 3.74112E06_JPRB,3.81857E06_JPRB,3.89688E06_JPRB,3.97602E06_JPRB,4.05601E06_JPRB,&  
119  & 4.13685E06_JPRB,4.21852E06_JPRB,4.30104E06_JPRB,4.38438E06_JPRB,4.46857E06_JPRB,&  
120  & 4.55358E06_JPRB,4.63943E06_JPRB,4.72610E06_JPRB,4.81359E06_JPRB,4.90191E06_JPRB,&  
121  & 4.99105E06_JPRB,5.08100E06_JPRB,5.17176E06_JPRB,5.26335E06_JPRB,5.35573E06_JPRB,&  
122  & 5.44892E06_JPRB,5.54292E06_JPRB,5.63772E06_JPRB,5.73331E06_JPRB,5.82970E06_JPRB,&  
123  & 5.92688E06_JPRB,6.02485E06_JPRB,6.12360E06_JPRB,6.22314E06_JPRB,6.32346E06_JPRB,&  
124  & 6.42455E06_JPRB,6.52641E06_JPRB,6.62906E06_JPRB,6.73247E06_JPRB,6.83664E06_JPRB,&  
125  & 6.94156E06_JPRB,7.04725E06_JPRB,7.15370E06_JPRB,7.26089E06_JPRB,7.36883E06_JPRB,&  
126  & 7.47752E06_JPRB,7.58695E06_JPRB,7.69712E06_JPRB,7.80801E06_JPRB,7.91965E06_JPRB,&  
127  & 8.03201E06_JPRB,8.14510E06_JPRB,8.25891E06_JPRB,8.37343E06_JPRB,8.48867E06_JPRB,&  
128  & 8.60463E06_JPRB,8.72128E06_JPRB,8.83865E06_JPRB,8.95672E06_JPRB,9.07548E06_JPRB,&  
129  & 9.19495E06_JPRB,9.31510E06_JPRB,9.43594E06_JPRB,9.55745E06_JPRB,9.67966E06_JPRB,&  
130  & 9.80254E06_JPRB,9.92609E06_JPRB,1.00503E05_JPRB,1.01752E05_JPRB,1.03008E05_JPRB,&  
131  & 1.04270E05_JPRB,1.05539E05_JPRB,1.06814E05_JPRB,1.08096E05_JPRB,1.09384E05_JPRB,&  
132  & 1.10679E05_JPRB,1.11980E05_JPRB,1.13288E05_JPRB,1.14601E05_JPRB,1.15922E05_JPRB,&  
133  & 1.17248E05_JPRB,1.18581E05_JPRB,1.19920E05_JPRB,1.21265E05_JPRB,1.22616E05_JPRB,&  
134  & 1.23973E05_JPRB,1.25337E05_JPRB,1.26706E05_JPRB,1.28081E05_JPRB,1.29463E05_JPRB,&  
135  & 1.30850E05_JPRB,1.32243E05_JPRB,1.33642E05_JPRB,1.35047E05_JPRB,1.36458E05_JPRB,&  
136  & 1.37875E05_JPRB,1.39297E05_JPRB,1.40725E05_JPRB,1.42159E05_JPRB,1.43598E05_JPRB,&  
137  & 1.45044E05_JPRB,1.46494E05_JPRB,1.47950E05_JPRB,1.49412E05_JPRB,1.50879E05_JPRB,&  
138  & 1.52352E05_JPRB,1.53830E05_JPRB,1.55314E05_JPRB,1.56803E05_JPRB,1.58297E05_JPRB,&  
139  & 1.59797E05_JPRB,1.61302E05_JPRB,1.62812E05_JPRB,1.64327E05_JPRB,1.65848E05_JPRB,&  
140  & 1.67374E05_JPRB,1.68904E05_JPRB,1.70441E05_JPRB,1.71982E05_JPRB,1.73528E05_JPRB,&  
141  & 1.75079E05_JPRB,1.76635E05_JPRB,1.78197E05_JPRB,1.79763E05_JPRB,1.81334E05_JPRB,&  
142  & 1.82910E05_JPRB,1.84491E05_JPRB,1.86076E05_JPRB,1.87667E05_JPRB,1.89262E05_JPRB,&  
143  & 1.90862E05_JPRB,1.92467E05_JPRB,1.94076E05_JPRB,1.95690E05_JPRB,1.97309E05_JPRB,&  
144  & 1.98932E05_JPRB,2.00560E05_JPRB,2.02193E05_JPRB,2.03830E05_JPRB,2.05472E05_JPRB,&  
145  & 2.07118E05_JPRB,2.08768E05_JPRB,2.10423E05_JPRB,2.12083E05_JPRB,2.13747E05_JPRB,&  
146 
2/2✓ Branch 0 taken 1 times.
✓ Branch 1 taken 181 times.

182  & 2.15414E05_JPRB/) 
147  
148  TOTPLNK( :, 4) = (/&  
149  & 8.90528E07_JPRB,9.24222E07_JPRB,9.58757E07_JPRB,9.94141E07_JPRB,1.03038E06_JPRB,&  
150  & 1.06748E06_JPRB,1.10545E06_JPRB,1.14430E06_JPRB,1.18403E06_JPRB,1.22465E06_JPRB,&  
151  & 1.26618E06_JPRB,1.30860E06_JPRB,1.35193E06_JPRB,1.39619E06_JPRB,1.44136E06_JPRB,&  
152  & 1.48746E06_JPRB,1.53449E06_JPRB,1.58246E06_JPRB,1.63138E06_JPRB,1.68124E06_JPRB,&  
153  & 1.73206E06_JPRB,1.78383E06_JPRB,1.83657E06_JPRB,1.89028E06_JPRB,1.94495E06_JPRB,&  
154  & 2.00060E06_JPRB,2.05724E06_JPRB,2.11485E06_JPRB,2.17344E06_JPRB,2.23303E06_JPRB,&  
155  & 2.29361E06_JPRB,2.35519E06_JPRB,2.41777E06_JPRB,2.48134E06_JPRB,2.54592E06_JPRB,&  
156  & 2.61151E06_JPRB,2.67810E06_JPRB,2.74571E06_JPRB,2.81433E06_JPRB,2.88396E06_JPRB,&  
157  & 2.95461E06_JPRB,3.02628E06_JPRB,3.09896E06_JPRB,3.17267E06_JPRB,3.24741E06_JPRB,&  
158  & 3.32316E06_JPRB,3.39994E06_JPRB,3.47774E06_JPRB,3.55657E06_JPRB,3.63642E06_JPRB,&  
159  & 3.71731E06_JPRB,3.79922E06_JPRB,3.88216E06_JPRB,3.96612E06_JPRB,4.05112E06_JPRB,&  
160  & 4.13714E06_JPRB,4.22419E06_JPRB,4.31227E06_JPRB,4.40137E06_JPRB,4.49151E06_JPRB,&  
161  & 4.58266E06_JPRB,4.67485E06_JPRB,4.76806E06_JPRB,4.86229E06_JPRB,4.95754E06_JPRB,&  
162  & 5.05383E06_JPRB,5.15113E06_JPRB,5.24946E06_JPRB,5.34879E06_JPRB,5.44916E06_JPRB,&  
163  & 5.55053E06_JPRB,5.65292E06_JPRB,5.75632E06_JPRB,5.86073E06_JPRB,5.96616E06_JPRB,&  
164  & 6.07260E06_JPRB,6.18003E06_JPRB,6.28848E06_JPRB,6.39794E06_JPRB,6.50838E06_JPRB,&  
165  & 6.61983E06_JPRB,6.73229E06_JPRB,6.84573E06_JPRB,6.96016E06_JPRB,7.07559E06_JPRB,&  
166  & 7.19200E06_JPRB,7.30940E06_JPRB,7.42779E06_JPRB,7.54715E06_JPRB,7.66749E06_JPRB,&  
167  & 7.78882E06_JPRB,7.91110E06_JPRB,8.03436E06_JPRB,8.15859E06_JPRB,8.28379E06_JPRB,&  
168  & 8.40994E06_JPRB,8.53706E06_JPRB,8.66515E06_JPRB,8.79418E06_JPRB,8.92416E06_JPRB,&  
169  & 9.05510E06_JPRB,9.18697E06_JPRB,9.31979E06_JPRB,9.45356E06_JPRB,9.58826E06_JPRB,&  
170  & 9.72389E06_JPRB,9.86046E06_JPRB,9.99793E06_JPRB,1.01364E05_JPRB,1.02757E05_JPRB,&  
171  & 1.04159E05_JPRB,1.05571E05_JPRB,1.06992E05_JPRB,1.08422E05_JPRB,1.09861E05_JPRB,&  
172  & 1.11309E05_JPRB,1.12766E05_JPRB,1.14232E05_JPRB,1.15707E05_JPRB,1.17190E05_JPRB,&  
173  & 1.18683E05_JPRB,1.20184E05_JPRB,1.21695E05_JPRB,1.23214E05_JPRB,1.24741E05_JPRB,&  
174  & 1.26277E05_JPRB,1.27822E05_JPRB,1.29376E05_JPRB,1.30939E05_JPRB,1.32509E05_JPRB,&  
175  & 1.34088E05_JPRB,1.35676E05_JPRB,1.37273E05_JPRB,1.38877E05_JPRB,1.40490E05_JPRB,&  
176  & 1.42112E05_JPRB,1.43742E05_JPRB,1.45380E05_JPRB,1.47026E05_JPRB,1.48680E05_JPRB,&  
177  & 1.50343E05_JPRB,1.52014E05_JPRB,1.53692E05_JPRB,1.55379E05_JPRB,1.57074E05_JPRB,&  
178  & 1.58778E05_JPRB,1.60488E05_JPRB,1.62207E05_JPRB,1.63934E05_JPRB,1.65669E05_JPRB,&  
179  & 1.67411E05_JPRB,1.69162E05_JPRB,1.70920E05_JPRB,1.72685E05_JPRB,1.74459E05_JPRB,&  
180  & 1.76240E05_JPRB,1.78029E05_JPRB,1.79825E05_JPRB,1.81629E05_JPRB,1.83440E05_JPRB,&  
181  & 1.85259E05_JPRB,1.87086E05_JPRB,1.88919E05_JPRB,1.90760E05_JPRB,1.92609E05_JPRB,&  
182  & 1.94465E05_JPRB,1.96327E05_JPRB,1.98199E05_JPRB,2.00076E05_JPRB,2.01961E05_JPRB,&  
183  & 2.03853E05_JPRB,2.05752E05_JPRB,2.07658E05_JPRB,2.09571E05_JPRB,2.11491E05_JPRB,&  
184  & 2.13418E05_JPRB,2.15352E05_JPRB,2.17294E05_JPRB,2.19241E05_JPRB,2.21196E05_JPRB,&  
185 
2/2✓ Branch 0 taken 1 times.
✓ Branch 1 taken 181 times.

182  & 2.23158E05_JPRB/) 
186  
187  TOTPLNK( :, 5) = (/&  
188  & 5.70230E07_JPRB,5.94788E07_JPRB,6.20085E07_JPRB,6.46130E07_JPRB,6.72936E07_JPRB,&  
189  & 7.00512E07_JPRB,7.28869E07_JPRB,7.58019E07_JPRB,7.87971E07_JPRB,8.18734E07_JPRB,&  
190  & 8.50320E07_JPRB,8.82738E07_JPRB,9.15999E07_JPRB,9.50110E07_JPRB,9.85084E07_JPRB,&  
191  & 1.02093E06_JPRB,1.05765E06_JPRB,1.09527E06_JPRB,1.13378E06_JPRB,1.17320E06_JPRB,&  
192  & 1.21353E06_JPRB,1.25479E06_JPRB,1.29698E06_JPRB,1.34011E06_JPRB,1.38419E06_JPRB,&  
193  & 1.42923E06_JPRB,1.47523E06_JPRB,1.52221E06_JPRB,1.57016E06_JPRB,1.61910E06_JPRB,&  
194  & 1.66904E06_JPRB,1.71997E06_JPRB,1.77192E06_JPRB,1.82488E06_JPRB,1.87886E06_JPRB,&  
195  & 1.93387E06_JPRB,1.98991E06_JPRB,2.04699E06_JPRB,2.10512E06_JPRB,2.16430E06_JPRB,&  
196  & 2.22454E06_JPRB,2.28584E06_JPRB,2.34821E06_JPRB,2.41166E06_JPRB,2.47618E06_JPRB,&  
197  & 2.54178E06_JPRB,2.60847E06_JPRB,2.67626E06_JPRB,2.74514E06_JPRB,2.81512E06_JPRB,&  
198  & 2.88621E06_JPRB,2.95841E06_JPRB,3.03172E06_JPRB,3.10615E06_JPRB,3.18170E06_JPRB,&  
199  & 3.25838E06_JPRB,3.33618E06_JPRB,3.41511E06_JPRB,3.49518E06_JPRB,3.57639E06_JPRB,&  
200  & 3.65873E06_JPRB,3.74221E06_JPRB,3.82684E06_JPRB,3.91262E06_JPRB,3.99955E06_JPRB,&  
201  & 4.08763E06_JPRB,4.17686E06_JPRB,4.26725E06_JPRB,4.35880E06_JPRB,4.45150E06_JPRB,&  
202  & 4.54537E06_JPRB,4.64039E06_JPRB,4.73659E06_JPRB,4.83394E06_JPRB,4.93246E06_JPRB,&  
203  & 5.03215E06_JPRB,5.13301E06_JPRB,5.23504E06_JPRB,5.33823E06_JPRB,5.44260E06_JPRB,&  
204  & 5.54814E06_JPRB,5.65484E06_JPRB,5.76272E06_JPRB,5.87177E06_JPRB,5.98199E06_JPRB,&  
205  & 6.09339E06_JPRB,6.20596E06_JPRB,6.31969E06_JPRB,6.43460E06_JPRB,6.55068E06_JPRB,&  
206  & 6.66793E06_JPRB,6.78636E06_JPRB,6.90595E06_JPRB,7.02670E06_JPRB,7.14863E06_JPRB,&  
207  & 7.27173E06_JPRB,7.39599E06_JPRB,7.52142E06_JPRB,7.64802E06_JPRB,7.77577E06_JPRB,&  
208  & 7.90469E06_JPRB,8.03477E06_JPRB,8.16601E06_JPRB,8.29841E06_JPRB,8.43198E06_JPRB,&  
209  & 8.56669E06_JPRB,8.70256E06_JPRB,8.83957E06_JPRB,8.97775E06_JPRB,9.11706E06_JPRB,&  
210  & 9.25753E06_JPRB,9.39915E06_JPRB,9.54190E06_JPRB,9.68580E06_JPRB,9.83085E06_JPRB,&  
211  & 9.97704E06_JPRB,1.01243E05_JPRB,1.02728E05_JPRB,1.04224E05_JPRB,1.05731E05_JPRB,&  
212  & 1.07249E05_JPRB,1.08779E05_JPRB,1.10320E05_JPRB,1.11872E05_JPRB,1.13435E05_JPRB,&  
213  & 1.15009E05_JPRB,1.16595E05_JPRB,1.18191E05_JPRB,1.19799E05_JPRB,1.21418E05_JPRB,&  
214  & 1.23048E05_JPRB,1.24688E05_JPRB,1.26340E05_JPRB,1.28003E05_JPRB,1.29676E05_JPRB,&  
215  & 1.31361E05_JPRB,1.33056E05_JPRB,1.34762E05_JPRB,1.36479E05_JPRB,1.38207E05_JPRB,&  
216  & 1.39945E05_JPRB,1.41694E05_JPRB,1.43454E05_JPRB,1.45225E05_JPRB,1.47006E05_JPRB,&  
217  & 1.48797E05_JPRB,1.50600E05_JPRB,1.52413E05_JPRB,1.54236E05_JPRB,1.56070E05_JPRB,&  
218  & 1.57914E05_JPRB,1.59768E05_JPRB,1.61633E05_JPRB,1.63509E05_JPRB,1.65394E05_JPRB,&  
219  & 1.67290E05_JPRB,1.69197E05_JPRB,1.71113E05_JPRB,1.73040E05_JPRB,1.74976E05_JPRB,&  
220  & 1.76923E05_JPRB,1.78880E05_JPRB,1.80847E05_JPRB,1.82824E05_JPRB,1.84811E05_JPRB,&  
221  & 1.86808E05_JPRB,1.88814E05_JPRB,1.90831E05_JPRB,1.92857E05_JPRB,1.94894E05_JPRB,&  
222  & 1.96940E05_JPRB,1.98996E05_JPRB,2.01061E05_JPRB,2.03136E05_JPRB,2.05221E05_JPRB,&  
223  & 2.07316E05_JPRB,2.09420E05_JPRB,2.11533E05_JPRB,2.13657E05_JPRB,2.15789E05_JPRB,&  
224 
2/2✓ Branch 0 taken 1 times.
✓ Branch 1 taken 181 times.

182  & 2.17931E05_JPRB/) 
225  
226  TOTPLNK( :, 6) = (/&  
227  & 2.73493E07_JPRB,2.87408E07_JPRB,3.01848E07_JPRB,3.16825E07_JPRB,3.32352E07_JPRB,&  
228  & 3.48439E07_JPRB,3.65100E07_JPRB,3.82346E07_JPRB,4.00189E07_JPRB,4.18641E07_JPRB,&  
229  & 4.37715E07_JPRB,4.57422E07_JPRB,4.77774E07_JPRB,4.98784E07_JPRB,5.20464E07_JPRB,&  
230  & 5.42824E07_JPRB,5.65879E07_JPRB,5.89638E07_JPRB,6.14115E07_JPRB,6.39320E07_JPRB,&  
231  & 6.65266E07_JPRB,6.91965E07_JPRB,7.19427E07_JPRB,7.47666E07_JPRB,7.76691E07_JPRB,&  
232  & 8.06516E07_JPRB,8.37151E07_JPRB,8.68607E07_JPRB,9.00896E07_JPRB,9.34029E07_JPRB,&  
233  & 9.68018E07_JPRB,1.00287E06_JPRB,1.03860E06_JPRB,1.07522E06_JPRB,1.11274E06_JPRB,&  
234  & 1.15117E06_JPRB,1.19052E06_JPRB,1.23079E06_JPRB,1.27201E06_JPRB,1.31418E06_JPRB,&  
235  & 1.35731E06_JPRB,1.40141E06_JPRB,1.44650E06_JPRB,1.49257E06_JPRB,1.53965E06_JPRB,&  
236  & 1.58773E06_JPRB,1.63684E06_JPRB,1.68697E06_JPRB,1.73815E06_JPRB,1.79037E06_JPRB,&  
237  & 1.84365E06_JPRB,1.89799E06_JPRB,1.95341E06_JPRB,2.00991E06_JPRB,2.06750E06_JPRB,&  
238  & 2.12619E06_JPRB,2.18599E06_JPRB,2.24691E06_JPRB,2.30895E06_JPRB,2.37212E06_JPRB,&  
239  & 2.43643E06_JPRB,2.50189E06_JPRB,2.56851E06_JPRB,2.63628E06_JPRB,2.70523E06_JPRB,&  
240  & 2.77536E06_JPRB,2.84666E06_JPRB,2.91916E06_JPRB,2.99286E06_JPRB,3.06776E06_JPRB,&  
241  & 3.14387E06_JPRB,3.22120E06_JPRB,3.29975E06_JPRB,3.37953E06_JPRB,3.46054E06_JPRB,&  
242  & 3.54280E06_JPRB,3.62630E06_JPRB,3.71105E06_JPRB,3.79707E06_JPRB,3.88434E06_JPRB,&  
243  & 3.97288E06_JPRB,4.06270E06_JPRB,4.15380E06_JPRB,4.24617E06_JPRB,4.33984E06_JPRB,&  
244  & 4.43479E06_JPRB,4.53104E06_JPRB,4.62860E06_JPRB,4.72746E06_JPRB,4.82763E06_JPRB,&  
245  & 4.92911E06_JPRB,5.03191E06_JPRB,5.13603E06_JPRB,5.24147E06_JPRB,5.34824E06_JPRB,&  
246  & 5.45634E06_JPRB,5.56578E06_JPRB,5.67656E06_JPRB,5.78867E06_JPRB,5.90213E06_JPRB,&  
247  & 6.01694E06_JPRB,6.13309E06_JPRB,6.25060E06_JPRB,6.36947E06_JPRB,6.48968E06_JPRB,&  
248  & 6.61126E06_JPRB,6.73420E06_JPRB,6.85850E06_JPRB,6.98417E06_JPRB,7.11120E06_JPRB,&  
249  & 7.23961E06_JPRB,7.36938E06_JPRB,7.50053E06_JPRB,7.63305E06_JPRB,7.76694E06_JPRB,&  
250  & 7.90221E06_JPRB,8.03887E06_JPRB,8.17690E06_JPRB,8.31632E06_JPRB,8.45710E06_JPRB,&  
251  & 8.59928E06_JPRB,8.74282E06_JPRB,8.88776E06_JPRB,9.03409E06_JPRB,9.18179E06_JPRB,&  
252  & 9.33088E06_JPRB,9.48136E06_JPRB,9.63323E06_JPRB,9.78648E06_JPRB,9.94111E06_JPRB,&  
253  & 1.00971E05_JPRB,1.02545E05_JPRB,1.04133E05_JPRB,1.05735E05_JPRB,1.07351E05_JPRB,&  
254  & 1.08980E05_JPRB,1.10624E05_JPRB,1.12281E05_JPRB,1.13952E05_JPRB,1.15637E05_JPRB,&  
255  & 1.17335E05_JPRB,1.19048E05_JPRB,1.20774E05_JPRB,1.22514E05_JPRB,1.24268E05_JPRB,&  
256  & 1.26036E05_JPRB,1.27817E05_JPRB,1.29612E05_JPRB,1.31421E05_JPRB,1.33244E05_JPRB,&  
257  & 1.35080E05_JPRB,1.36930E05_JPRB,1.38794E05_JPRB,1.40672E05_JPRB,1.42563E05_JPRB,&  
258  & 1.44468E05_JPRB,1.46386E05_JPRB,1.48318E05_JPRB,1.50264E05_JPRB,1.52223E05_JPRB,&  
259  & 1.54196E05_JPRB,1.56182E05_JPRB,1.58182E05_JPRB,1.60196E05_JPRB,1.62223E05_JPRB,&  
260  & 1.64263E05_JPRB,1.66317E05_JPRB,1.68384E05_JPRB,1.70465E05_JPRB,1.72559E05_JPRB,&  
261  & 1.74666E05_JPRB,1.76787E05_JPRB,1.78921E05_JPRB,1.81069E05_JPRB,1.83230E05_JPRB,&  
262  & 1.85404E05_JPRB,1.87591E05_JPRB,1.89791E05_JPRB,1.92005E05_JPRB,1.94232E05_JPRB,&  
263 
2/2✓ Branch 0 taken 1 times.
✓ Branch 1 taken 181 times.

182  & 1.96471E05_JPRB/) 
264  
265  TOTPLNK( :, 7) = (/&  
266  & 1.25349E07_JPRB,1.32735E07_JPRB,1.40458E07_JPRB,1.48527E07_JPRB,1.56954E07_JPRB,&  
267  & 1.65748E07_JPRB,1.74920E07_JPRB,1.84481E07_JPRB,1.94443E07_JPRB,2.04814E07_JPRB,&  
268  & 2.15608E07_JPRB,2.26835E07_JPRB,2.38507E07_JPRB,2.50634E07_JPRB,2.63229E07_JPRB,&  
269  & 2.76301E07_JPRB,2.89864E07_JPRB,3.03930E07_JPRB,3.18508E07_JPRB,3.33612E07_JPRB,&  
270  & 3.49253E07_JPRB,3.65443E07_JPRB,3.82195E07_JPRB,3.99519E07_JPRB,4.17428E07_JPRB,&  
271  & 4.35934E07_JPRB,4.55050E07_JPRB,4.74785E07_JPRB,4.95155E07_JPRB,5.16170E07_JPRB,&  
272  & 5.37844E07_JPRB,5.60186E07_JPRB,5.83211E07_JPRB,6.06929E07_JPRB,6.31355E07_JPRB,&  
273  & 6.56498E07_JPRB,6.82373E07_JPRB,7.08990E07_JPRB,7.36362E07_JPRB,7.64501E07_JPRB,&  
274  & 7.93420E07_JPRB,8.23130E07_JPRB,8.53643E07_JPRB,8.84971E07_JPRB,9.17128E07_JPRB,&  
275  & 9.50123E07_JPRB,9.83969E07_JPRB,1.01868E06_JPRB,1.05426E06_JPRB,1.09073E06_JPRB,&  
276  & 1.12810E06_JPRB,1.16638E06_JPRB,1.20558E06_JPRB,1.24572E06_JPRB,1.28680E06_JPRB,&  
277  & 1.32883E06_JPRB,1.37183E06_JPRB,1.41581E06_JPRB,1.46078E06_JPRB,1.50675E06_JPRB,&  
278  & 1.55374E06_JPRB,1.60174E06_JPRB,1.65078E06_JPRB,1.70087E06_JPRB,1.75200E06_JPRB,&  
279  & 1.80421E06_JPRB,1.85749E06_JPRB,1.91186E06_JPRB,1.96732E06_JPRB,2.02389E06_JPRB,&  
280  & 2.08159E06_JPRB,2.14040E06_JPRB,2.20035E06_JPRB,2.26146E06_JPRB,2.32372E06_JPRB,&  
281  & 2.38714E06_JPRB,2.45174E06_JPRB,2.51753E06_JPRB,2.58451E06_JPRB,2.65270E06_JPRB,&  
282  & 2.72210E06_JPRB,2.79272E06_JPRB,2.86457E06_JPRB,2.93767E06_JPRB,3.01201E06_JPRB,&  
283  & 3.08761E06_JPRB,3.16448E06_JPRB,3.24261E06_JPRB,3.32204E06_JPRB,3.40275E06_JPRB,&  
284  & 3.48476E06_JPRB,3.56808E06_JPRB,3.65271E06_JPRB,3.73866E06_JPRB,3.82595E06_JPRB,&  
285  & 3.91456E06_JPRB,4.00453E06_JPRB,4.09584E06_JPRB,4.18851E06_JPRB,4.28254E06_JPRB,&  
286  & 4.37796E06_JPRB,4.47475E06_JPRB,4.57293E06_JPRB,4.67249E06_JPRB,4.77346E06_JPRB,&  
287  & 4.87583E06_JPRB,4.97961E06_JPRB,5.08481E06_JPRB,5.19143E06_JPRB,5.29948E06_JPRB,&  
288  & 5.40896E06_JPRB,5.51989E06_JPRB,5.63226E06_JPRB,5.74608E06_JPRB,5.86136E06_JPRB,&  
289  & 5.97810E06_JPRB,6.09631E06_JPRB,6.21597E06_JPRB,6.33713E06_JPRB,6.45976E06_JPRB,&  
290  & 6.58388E06_JPRB,6.70950E06_JPRB,6.83661E06_JPRB,6.96521E06_JPRB,7.09531E06_JPRB,&  
291  & 7.22692E06_JPRB,7.36005E06_JPRB,7.49468E06_JPRB,7.63084E06_JPRB,7.76851E06_JPRB,&  
292  & 7.90773E06_JPRB,8.04846E06_JPRB,8.19072E06_JPRB,8.33452E06_JPRB,8.47985E06_JPRB,&  
293  & 8.62674E06_JPRB,8.77517E06_JPRB,8.92514E06_JPRB,9.07666E06_JPRB,9.22975E06_JPRB,&  
294  & 9.38437E06_JPRB,9.54057E06_JPRB,9.69832E06_JPRB,9.85762E06_JPRB,1.00185E05_JPRB,&  
295  & 1.01810E05_JPRB,1.03450E05_JPRB,1.05106E05_JPRB,1.06777E05_JPRB,1.08465E05_JPRB,&  
296  & 1.10168E05_JPRB,1.11887E05_JPRB,1.13621E05_JPRB,1.15372E05_JPRB,1.17138E05_JPRB,&  
297  & 1.18920E05_JPRB,1.20718E05_JPRB,1.22532E05_JPRB,1.24362E05_JPRB,1.26207E05_JPRB,&  
298  & 1.28069E05_JPRB,1.29946E05_JPRB,1.31839E05_JPRB,1.33749E05_JPRB,1.35674E05_JPRB,&  
299  & 1.37615E05_JPRB,1.39572E05_JPRB,1.41544E05_JPRB,1.43533E05_JPRB,1.45538E05_JPRB,&  
300  & 1.47558E05_JPRB,1.49595E05_JPRB,1.51647E05_JPRB,1.53716E05_JPRB,1.55800E05_JPRB,&  
301  & 1.57900E05_JPRB,1.60017E05_JPRB,1.62149E05_JPRB,1.64296E05_JPRB,1.66460E05_JPRB,&  
302 
2/2✓ Branch 0 taken 1 times.
✓ Branch 1 taken 181 times.

182  & 1.68640E05_JPRB/) 
303  
304  TOTPLNK( :, 8) = (/&  
305  & 6.74445E08_JPRB,7.18176E08_JPRB,7.64153E08_JPRB,8.12456E08_JPRB,8.63170E08_JPRB,&  
306  & 9.16378E08_JPRB,9.72168E08_JPRB,1.03063E07_JPRB,1.09184E07_JPRB,1.15591E07_JPRB,&  
307  & 1.22292E07_JPRB,1.29296E07_JPRB,1.36613E07_JPRB,1.44253E07_JPRB,1.52226E07_JPRB,&  
308  & 1.60540E07_JPRB,1.69207E07_JPRB,1.78236E07_JPRB,1.87637E07_JPRB,1.97421E07_JPRB,&  
309  & 2.07599E07_JPRB,2.18181E07_JPRB,2.29177E07_JPRB,2.40598E07_JPRB,2.52456E07_JPRB,&  
310  & 2.64761E07_JPRB,2.77523E07_JPRB,2.90755E07_JPRB,3.04468E07_JPRB,3.18673E07_JPRB,&  
311  & 3.33381E07_JPRB,3.48603E07_JPRB,3.64352E07_JPRB,3.80638E07_JPRB,3.97474E07_JPRB,&  
312  & 4.14871E07_JPRB,4.32841E07_JPRB,4.51395E07_JPRB,4.70547E07_JPRB,4.90306E07_JPRB,&  
313  & 5.10687E07_JPRB,5.31699E07_JPRB,5.53357E07_JPRB,5.75670E07_JPRB,5.98652E07_JPRB,&  
314  & 6.22315E07_JPRB,6.46672E07_JPRB,6.71731E07_JPRB,6.97511E07_JPRB,7.24018E07_JPRB,&  
315  & 7.51266E07_JPRB,7.79269E07_JPRB,8.08038E07_JPRB,8.37584E07_JPRB,8.67922E07_JPRB,&  
316  & 8.99061E07_JPRB,9.31016E07_JPRB,9.63797E07_JPRB,9.97417E07_JPRB,1.03189E06_JPRB,&  
317  & 1.06722E06_JPRB,1.10343E06_JPRB,1.14053E06_JPRB,1.17853E06_JPRB,1.21743E06_JPRB,&  
318  & 1.25726E06_JPRB,1.29803E06_JPRB,1.33974E06_JPRB,1.38241E06_JPRB,1.42606E06_JPRB,&  
319  & 1.47068E06_JPRB,1.51630E06_JPRB,1.56293E06_JPRB,1.61056E06_JPRB,1.65924E06_JPRB,&  
320  & 1.70894E06_JPRB,1.75971E06_JPRB,1.81153E06_JPRB,1.86443E06_JPRB,1.91841E06_JPRB,&  
321  & 1.97350E06_JPRB,2.02968E06_JPRB,2.08699E06_JPRB,2.14543E06_JPRB,2.20500E06_JPRB,&  
322  & 2.26573E06_JPRB,2.32762E06_JPRB,2.39068E06_JPRB,2.45492E06_JPRB,2.52036E06_JPRB,&  
323  & 2.58700E06_JPRB,2.65485E06_JPRB,2.72393E06_JPRB,2.79424E06_JPRB,2.86580E06_JPRB,&  
324  & 2.93861E06_JPRB,3.01269E06_JPRB,3.08803E06_JPRB,3.16467E06_JPRB,3.24259E06_JPRB,&  
325  & 3.32181E06_JPRB,3.40235E06_JPRB,3.48420E06_JPRB,3.56739E06_JPRB,3.65192E06_JPRB,&  
326  & 3.73779E06_JPRB,3.82502E06_JPRB,3.91362E06_JPRB,4.00359E06_JPRB,4.09494E06_JPRB,&  
327  & 4.18768E06_JPRB,4.28182E06_JPRB,4.37737E06_JPRB,4.47434E06_JPRB,4.57273E06_JPRB,&  
328  & 4.67254E06_JPRB,4.77380E06_JPRB,4.87651E06_JPRB,4.98067E06_JPRB,5.08630E06_JPRB,&  
329  & 5.19339E06_JPRB,5.30196E06_JPRB,5.41201E06_JPRB,5.52356E06_JPRB,5.63660E06_JPRB,&  
330  & 5.75116E06_JPRB,5.86722E06_JPRB,5.98479E06_JPRB,6.10390E06_JPRB,6.22453E06_JPRB,&  
331  & 6.34669E06_JPRB,6.47042E06_JPRB,6.59569E06_JPRB,6.72252E06_JPRB,6.85090E06_JPRB,&  
332  & 6.98085E06_JPRB,7.11238E06_JPRB,7.24549E06_JPRB,7.38019E06_JPRB,7.51646E06_JPRB,&  
333  & 7.65434E06_JPRB,7.79382E06_JPRB,7.93490E06_JPRB,8.07760E06_JPRB,8.22192E06_JPRB,&  
334  & 8.36784E06_JPRB,8.51540E06_JPRB,8.66459E06_JPRB,8.81542E06_JPRB,8.96786E06_JPRB,&  
335  & 9.12197E06_JPRB,9.27772E06_JPRB,9.43513E06_JPRB,9.59419E06_JPRB,9.75490E06_JPRB,&  
336  & 9.91728E06_JPRB,1.00813E05_JPRB,1.02471E05_JPRB,1.04144E05_JPRB,1.05835E05_JPRB,&  
337  & 1.07543E05_JPRB,1.09267E05_JPRB,1.11008E05_JPRB,1.12766E05_JPRB,1.14541E05_JPRB,&  
338  & 1.16333E05_JPRB,1.18142E05_JPRB,1.19969E05_JPRB,1.21812E05_JPRB,1.23672E05_JPRB,&  
339  & 1.25549E05_JPRB,1.27443E05_JPRB,1.29355E05_JPRB,1.31284E05_JPRB,1.33229E05_JPRB,&  
340  & 1.35193E05_JPRB,1.37173E05_JPRB,1.39170E05_JPRB,1.41185E05_JPRB,1.43217E05_JPRB,&  
341 
2/2✓ Branch 0 taken 1 times.
✓ Branch 1 taken 181 times.

182  & 1.45267E05_JPRB/) 
342  
343  TOTPLNK( :, 9) = (/&  
344  & 2.61522E08_JPRB,2.80613E08_JPRB,3.00838E08_JPRB,3.22250E08_JPRB,3.44899E08_JPRB,&  
345  & 3.68841E08_JPRB,3.94129E08_JPRB,4.20820E08_JPRB,4.48973E08_JPRB,4.78646E08_JPRB,&  
346  & 5.09901E08_JPRB,5.42799E08_JPRB,5.77405E08_JPRB,6.13784E08_JPRB,6.52001E08_JPRB,&  
347  & 6.92126E08_JPRB,7.34227E08_JPRB,7.78375E08_JPRB,8.24643E08_JPRB,8.73103E08_JPRB,&  
348  & 9.23832E08_JPRB,9.76905E08_JPRB,1.03240E07_JPRB,1.09039E07_JPRB,1.15097E07_JPRB,&  
349  & 1.21421E07_JPRB,1.28020E07_JPRB,1.34902E07_JPRB,1.42075E07_JPRB,1.49548E07_JPRB,&  
350  & 1.57331E07_JPRB,1.65432E07_JPRB,1.73860E07_JPRB,1.82624E07_JPRB,1.91734E07_JPRB,&  
351  & 2.01198E07_JPRB,2.11028E07_JPRB,2.21231E07_JPRB,2.31818E07_JPRB,2.42799E07_JPRB,&  
352  & 2.54184E07_JPRB,2.65983E07_JPRB,2.78205E07_JPRB,2.90862E07_JPRB,3.03963E07_JPRB,&  
353  & 3.17519E07_JPRB,3.31541E07_JPRB,3.46039E07_JPRB,3.61024E07_JPRB,3.76507E07_JPRB,&  
354  & 3.92498E07_JPRB,4.09008E07_JPRB,4.26050E07_JPRB,4.43633E07_JPRB,4.61769E07_JPRB,&  
355  & 4.80469E07_JPRB,4.99744E07_JPRB,5.19606E07_JPRB,5.40067E07_JPRB,5.61136E07_JPRB,&  
356  & 5.82828E07_JPRB,6.05152E07_JPRB,6.28120E07_JPRB,6.51745E07_JPRB,6.76038E07_JPRB,&  
357  & 7.01010E07_JPRB,7.26674E07_JPRB,7.53041E07_JPRB,7.80124E07_JPRB,8.07933E07_JPRB,&  
358  & 8.36482E07_JPRB,8.65781E07_JPRB,8.95845E07_JPRB,9.26683E07_JPRB,9.58308E07_JPRB,&  
359  & 9.90732E07_JPRB,1.02397E06_JPRB,1.05803E06_JPRB,1.09292E06_JPRB,1.12866E06_JPRB,&  
360  & 1.16526E06_JPRB,1.20274E06_JPRB,1.24109E06_JPRB,1.28034E06_JPRB,1.32050E06_JPRB,&  
361  & 1.36158E06_JPRB,1.40359E06_JPRB,1.44655E06_JPRB,1.49046E06_JPRB,1.53534E06_JPRB,&  
362  & 1.58120E06_JPRB,1.62805E06_JPRB,1.67591E06_JPRB,1.72478E06_JPRB,1.77468E06_JPRB,&  
363  & 1.82561E06_JPRB,1.87760E06_JPRB,1.93066E06_JPRB,1.98479E06_JPRB,2.04000E06_JPRB,&  
364  & 2.09631E06_JPRB,2.15373E06_JPRB,2.21228E06_JPRB,2.27196E06_JPRB,2.33278E06_JPRB,&  
365  & 2.39475E06_JPRB,2.45790E06_JPRB,2.52222E06_JPRB,2.58773E06_JPRB,2.65445E06_JPRB,&  
366  & 2.72238E06_JPRB,2.79152E06_JPRB,2.86191E06_JPRB,2.93354E06_JPRB,3.00643E06_JPRB,&  
367  & 3.08058E06_JPRB,3.15601E06_JPRB,3.23273E06_JPRB,3.31075E06_JPRB,3.39009E06_JPRB,&  
368  & 3.47074E06_JPRB,3.55272E06_JPRB,3.63605E06_JPRB,3.72072E06_JPRB,3.80676E06_JPRB,&  
369  & 3.89417E06_JPRB,3.98297E06_JPRB,4.07315E06_JPRB,4.16474E06_JPRB,4.25774E06_JPRB,&  
370  & 4.35217E06_JPRB,4.44802E06_JPRB,4.54532E06_JPRB,4.64406E06_JPRB,4.74428E06_JPRB,&  
371  & 4.84595E06_JPRB,4.94911E06_JPRB,5.05376E06_JPRB,5.15990E06_JPRB,5.26755E06_JPRB,&  
372  & 5.37671E06_JPRB,5.48741E06_JPRB,5.59963E06_JPRB,5.71340E06_JPRB,5.82871E06_JPRB,&  
373  & 5.94559E06_JPRB,6.06403E06_JPRB,6.18404E06_JPRB,6.30565E06_JPRB,6.42885E06_JPRB,&  
374  & 6.55364E06_JPRB,6.68004E06_JPRB,6.80806E06_JPRB,6.93771E06_JPRB,7.06898E06_JPRB,&  
375  & 7.20190E06_JPRB,7.33646E06_JPRB,7.47267E06_JPRB,7.61056E06_JPRB,7.75010E06_JPRB,&  
376  & 7.89133E06_JPRB,8.03423E06_JPRB,8.17884E06_JPRB,8.32514E06_JPRB,8.47314E06_JPRB,&  
377  & 8.62284E06_JPRB,8.77427E06_JPRB,8.92743E06_JPRB,9.08231E06_JPRB,9.23893E06_JPRB,&  
378  & 9.39729E06_JPRB,9.55741E06_JPRB,9.71927E06_JPRB,9.88291E06_JPRB,1.00483E05_JPRB,&  
379  & 1.02155E05_JPRB,1.03844E05_JPRB,1.05552E05_JPRB,1.07277E05_JPRB,1.09020E05_JPRB,&  
380 
2/2✓ Branch 0 taken 1 times.
✓ Branch 1 taken 181 times.

182  & 1.10781E05_JPRB/) 
381  
382  TOTPLNK( :,10) = (/&  
383  & 8.89300E09_JPRB,9.63263E09_JPRB,1.04235E08_JPRB,1.12685E08_JPRB,1.21703E08_JPRB,&  
384  & 1.31321E08_JPRB,1.41570E08_JPRB,1.52482E08_JPRB,1.64090E08_JPRB,1.76428E08_JPRB,&  
385  & 1.89533E08_JPRB,2.03441E08_JPRB,2.18190E08_JPRB,2.33820E08_JPRB,2.50370E08_JPRB,&  
386  & 2.67884E08_JPRB,2.86402E08_JPRB,3.05969E08_JPRB,3.26632E08_JPRB,3.48436E08_JPRB,&  
387  & 3.71429E08_JPRB,3.95660E08_JPRB,4.21179E08_JPRB,4.48040E08_JPRB,4.76294E08_JPRB,&  
388  & 5.05996E08_JPRB,5.37201E08_JPRB,5.69966E08_JPRB,6.04349E08_JPRB,6.40411E08_JPRB,&  
389  & 6.78211E08_JPRB,7.17812E08_JPRB,7.59276E08_JPRB,8.02670E08_JPRB,8.48059E08_JPRB,&  
390  & 8.95508E08_JPRB,9.45090E08_JPRB,9.96873E08_JPRB,1.05093E07_JPRB,1.10733E07_JPRB,&  
391  & 1.16614E07_JPRB,1.22745E07_JPRB,1.29133E07_JPRB,1.35786E07_JPRB,1.42711E07_JPRB,&  
392  & 1.49916E07_JPRB,1.57410E07_JPRB,1.65202E07_JPRB,1.73298E07_JPRB,1.81709E07_JPRB,&  
393  & 1.90441E07_JPRB,1.99505E07_JPRB,2.08908E07_JPRB,2.18660E07_JPRB,2.28770E07_JPRB,&  
394  & 2.39247E07_JPRB,2.50101E07_JPRB,2.61340E07_JPRB,2.72974E07_JPRB,2.85013E07_JPRB,&  
395  & 2.97467E07_JPRB,3.10345E07_JPRB,3.23657E07_JPRB,3.37413E07_JPRB,3.51623E07_JPRB,&  
396  & 3.66298E07_JPRB,3.81448E07_JPRB,3.97082E07_JPRB,4.13212E07_JPRB,4.29848E07_JPRB,&  
397  & 4.47000E07_JPRB,4.64680E07_JPRB,4.82898E07_JPRB,5.01664E07_JPRB,5.20991E07_JPRB,&  
398  & 5.40888E07_JPRB,5.61369E07_JPRB,5.82440E07_JPRB,6.04118E07_JPRB,6.26410E07_JPRB,&  
399  & 6.49329E07_JPRB,6.72887E07_JPRB,6.97095E07_JPRB,7.21964E07_JPRB,7.47506E07_JPRB,&  
400  & 7.73732E07_JPRB,8.00655E07_JPRB,8.28287E07_JPRB,8.56635E07_JPRB,8.85717E07_JPRB,&  
401  & 9.15542E07_JPRB,9.46122E07_JPRB,9.77469E07_JPRB,1.00960E06_JPRB,1.04251E06_JPRB,&  
402  & 1.07623E06_JPRB,1.11077E06_JPRB,1.14613E06_JPRB,1.18233E06_JPRB,1.21939E06_JPRB,&  
403  & 1.25730E06_JPRB,1.29610E06_JPRB,1.33578E06_JPRB,1.37636E06_JPRB,1.41785E06_JPRB,&  
404  & 1.46027E06_JPRB,1.50362E06_JPRB,1.54792E06_JPRB,1.59319E06_JPRB,1.63942E06_JPRB,&  
405  & 1.68665E06_JPRB,1.73487E06_JPRB,1.78410E06_JPRB,1.83435E06_JPRB,1.88564E06_JPRB,&  
406  & 1.93797E06_JPRB,1.99136E06_JPRB,2.04582E06_JPRB,2.10137E06_JPRB,2.15801E06_JPRB,&  
407  & 2.21576E06_JPRB,2.27463E06_JPRB,2.33462E06_JPRB,2.39577E06_JPRB,2.45806E06_JPRB,&  
408  & 2.52153E06_JPRB,2.58617E06_JPRB,2.65201E06_JPRB,2.71905E06_JPRB,2.78730E06_JPRB,&  
409  & 2.85678E06_JPRB,2.92749E06_JPRB,2.99946E06_JPRB,3.07269E06_JPRB,3.14720E06_JPRB,&  
410  & 3.22299E06_JPRB,3.30007E06_JPRB,3.37847E06_JPRB,3.45818E06_JPRB,3.53923E06_JPRB,&  
411  & 3.62161E06_JPRB,3.70535E06_JPRB,3.79046E06_JPRB,3.87695E06_JPRB,3.96481E06_JPRB,&  
412  & 4.05409E06_JPRB,4.14477E06_JPRB,4.23687E06_JPRB,4.33040E06_JPRB,4.42538E06_JPRB,&  
413  & 4.52180E06_JPRB,4.61969E06_JPRB,4.71905E06_JPRB,4.81991E06_JPRB,4.92226E06_JPRB,&  
414  & 5.02611E06_JPRB,5.13148E06_JPRB,5.23839E06_JPRB,5.34681E06_JPRB,5.45681E06_JPRB,&  
415  & 5.56835E06_JPRB,5.68146E06_JPRB,5.79614E06_JPRB,5.91242E06_JPRB,6.03030E06_JPRB,&  
416  & 6.14978E06_JPRB,6.27088E06_JPRB,6.39360E06_JPRB,6.51798E06_JPRB,6.64398E06_JPRB,&  
417  & 6.77165E06_JPRB,6.90099E06_JPRB,7.03198E06_JPRB,7.16468E06_JPRB,7.29906E06_JPRB,&  
418  & 7.43514E06_JPRB,7.57294E06_JPRB,7.71244E06_JPRB,7.85369E06_JPRB,7.99666E06_JPRB,&  
419 
2/2✓ Branch 0 taken 1 times.
✓ Branch 1 taken 181 times.

182  & 8.14138E06_JPRB/) 
420  
421  TOTPLNK( :,11) = (/&  
422  & 2.53767E09_JPRB,2.77242E09_JPRB,3.02564E09_JPRB,3.29851E09_JPRB,3.59228E09_JPRB,&  
423  & 3.90825E09_JPRB,4.24777E09_JPRB,4.61227E09_JPRB,5.00322E09_JPRB,5.42219E09_JPRB,&  
424  & 5.87080E09_JPRB,6.35072E09_JPRB,6.86370E09_JPRB,7.41159E09_JPRB,7.99628E09_JPRB,&  
425  & 8.61974E09_JPRB,9.28404E09_JPRB,9.99130E09_JPRB,1.07437E08_JPRB,1.15436E08_JPRB,&  
426  & 1.23933E08_JPRB,1.32953E08_JPRB,1.42522E08_JPRB,1.52665E08_JPRB,1.63410E08_JPRB,&  
427  & 1.74786E08_JPRB,1.86820E08_JPRB,1.99542E08_JPRB,2.12985E08_JPRB,2.27179E08_JPRB,&  
428  & 2.42158E08_JPRB,2.57954E08_JPRB,2.74604E08_JPRB,2.92141E08_JPRB,3.10604E08_JPRB,&  
429  & 3.30029E08_JPRB,3.50457E08_JPRB,3.71925E08_JPRB,3.94476E08_JPRB,4.18149E08_JPRB,&  
430  & 4.42991E08_JPRB,4.69043E08_JPRB,4.96352E08_JPRB,5.24961E08_JPRB,5.54921E08_JPRB,&  
431  & 5.86277E08_JPRB,6.19081E08_JPRB,6.53381E08_JPRB,6.89231E08_JPRB,7.26681E08_JPRB,&  
432  & 7.65788E08_JPRB,8.06604E08_JPRB,8.49187E08_JPRB,8.93591E08_JPRB,9.39879E08_JPRB,&  
433  & 9.88106E08_JPRB,1.03834E07_JPRB,1.09063E07_JPRB,1.14504E07_JPRB,1.20165E07_JPRB,&  
434  & 1.26051E07_JPRB,1.32169E07_JPRB,1.38525E07_JPRB,1.45128E07_JPRB,1.51982E07_JPRB,&  
435  & 1.59096E07_JPRB,1.66477E07_JPRB,1.74132E07_JPRB,1.82068E07_JPRB,1.90292E07_JPRB,&  
436  & 1.98813E07_JPRB,2.07638E07_JPRB,2.16775E07_JPRB,2.26231E07_JPRB,2.36015E07_JPRB,&  
437  & 2.46135E07_JPRB,2.56599E07_JPRB,2.67415E07_JPRB,2.78592E07_JPRB,2.90137E07_JPRB,&  
438  & 3.02061E07_JPRB,3.14371E07_JPRB,3.27077E07_JPRB,3.40186E07_JPRB,3.53710E07_JPRB,&  
439  & 3.67655E07_JPRB,3.82031E07_JPRB,3.96848E07_JPRB,4.12116E07_JPRB,4.27842E07_JPRB,&  
440  & 4.44039E07_JPRB,4.60713E07_JPRB,4.77876E07_JPRB,4.95537E07_JPRB,5.13706E07_JPRB,&  
441  & 5.32392E07_JPRB,5.51608E07_JPRB,5.71360E07_JPRB,5.91662E07_JPRB,6.12521E07_JPRB,&  
442  & 6.33950E07_JPRB,6.55958E07_JPRB,6.78556E07_JPRB,7.01753E07_JPRB,7.25562E07_JPRB,&  
443  & 7.49992E07_JPRB,7.75055E07_JPRB,8.00760E07_JPRB,8.27120E07_JPRB,8.54145E07_JPRB,&  
444  & 8.81845E07_JPRB,9.10233E07_JPRB,9.39318E07_JPRB,9.69113E07_JPRB,9.99627E07_JPRB,&  
445  & 1.03087E06_JPRB,1.06286E06_JPRB,1.09561E06_JPRB,1.12912E06_JPRB,1.16340E06_JPRB,&  
446  & 1.19848E06_JPRB,1.23435E06_JPRB,1.27104E06_JPRB,1.30855E06_JPRB,1.34690E06_JPRB,&  
447  & 1.38609E06_JPRB,1.42614E06_JPRB,1.46706E06_JPRB,1.50886E06_JPRB,1.55155E06_JPRB,&  
448  & 1.59515E06_JPRB,1.63967E06_JPRB,1.68512E06_JPRB,1.73150E06_JPRB,1.77884E06_JPRB,&  
449  & 1.82715E06_JPRB,1.87643E06_JPRB,1.92670E06_JPRB,1.97797E06_JPRB,2.03026E06_JPRB,&  
450  & 2.08356E06_JPRB,2.13791E06_JPRB,2.19330E06_JPRB,2.24975E06_JPRB,2.30728E06_JPRB,&  
451  & 2.36589E06_JPRB,2.42560E06_JPRB,2.48641E06_JPRB,2.54835E06_JPRB,2.61142E06_JPRB,&  
452  & 2.67563E06_JPRB,2.74100E06_JPRB,2.80754E06_JPRB,2.87526E06_JPRB,2.94417E06_JPRB,&  
453  & 3.01429E06_JPRB,3.08562E06_JPRB,3.15819E06_JPRB,3.23199E06_JPRB,3.30704E06_JPRB,&  
454  & 3.38336E06_JPRB,3.46096E06_JPRB,3.53984E06_JPRB,3.62002E06_JPRB,3.70151E06_JPRB,&  
455  & 3.78433E06_JPRB,3.86848E06_JPRB,3.95399E06_JPRB,4.04084E06_JPRB,4.12907E06_JPRB,&  
456  & 4.21868E06_JPRB,4.30968E06_JPRB,4.40209E06_JPRB,4.49592E06_JPRB,4.59117E06_JPRB,&  
457  & 4.68786E06_JPRB,4.78600E06_JPRB,4.88561E06_JPRB,4.98669E06_JPRB,5.08926E06_JPRB,&  
458 
2/2✓ Branch 0 taken 1 times.
✓ Branch 1 taken 181 times.

182  & 5.19332E06_JPRB/) 
459  
460  TOTPLNK( :,12) = (/&  
461  & 2.73921E10_JPRB,3.04500E10_JPRB,3.38056E10_JPRB,3.74835E10_JPRB,4.15099E10_JPRB,&  
462  & 4.59126E10_JPRB,5.07214E10_JPRB,5.59679E10_JPRB,6.16857E10_JPRB,6.79103E10_JPRB,&  
463  & 7.46796E10_JPRB,8.20335E10_JPRB,9.00144E10_JPRB,9.86671E10_JPRB,1.08039E09_JPRB,&  
464  & 1.18180E09_JPRB,1.29142E09_JPRB,1.40982E09_JPRB,1.53757E09_JPRB,1.67529E09_JPRB,&  
465  & 1.82363E09_JPRB,1.98327E09_JPRB,2.15492E09_JPRB,2.33932E09_JPRB,2.53726E09_JPRB,&  
466  & 2.74957E09_JPRB,2.97710E09_JPRB,3.22075E09_JPRB,3.48145E09_JPRB,3.76020E09_JPRB,&  
467  & 4.05801E09_JPRB,4.37595E09_JPRB,4.71513E09_JPRB,5.07672E09_JPRB,5.46193E09_JPRB,&  
468  & 5.87201E09_JPRB,6.30827E09_JPRB,6.77205E09_JPRB,7.26480E09_JPRB,7.78794E09_JPRB,&  
469  & 8.34304E09_JPRB,8.93163E09_JPRB,9.55537E09_JPRB,1.02159E08_JPRB,1.09151E08_JPRB,&  
470  & 1.16547E08_JPRB,1.24365E08_JPRB,1.32625E08_JPRB,1.41348E08_JPRB,1.50554E08_JPRB,&  
471  & 1.60264E08_JPRB,1.70500E08_JPRB,1.81285E08_JPRB,1.92642E08_JPRB,2.04596E08_JPRB,&  
472  & 2.17171E08_JPRB,2.30394E08_JPRB,2.44289E08_JPRB,2.58885E08_JPRB,2.74209E08_JPRB,&  
473  & 2.90290E08_JPRB,3.07157E08_JPRB,3.24841E08_JPRB,3.43371E08_JPRB,3.62782E08_JPRB,&  
474  & 3.83103E08_JPRB,4.04371E08_JPRB,4.26617E08_JPRB,4.49878E08_JPRB,4.74190E08_JPRB,&  
475  & 4.99589E08_JPRB,5.26113E08_JPRB,5.53801E08_JPRB,5.82692E08_JPRB,6.12826E08_JPRB,&  
476  & 6.44245E08_JPRB,6.76991E08_JPRB,7.11105E08_JPRB,7.46634E08_JPRB,7.83621E08_JPRB,&  
477  & 8.22112E08_JPRB,8.62154E08_JPRB,9.03795E08_JPRB,9.47081E08_JPRB,9.92066E08_JPRB,&  
478  & 1.03879E07_JPRB,1.08732E07_JPRB,1.13770E07_JPRB,1.18998E07_JPRB,1.24422E07_JPRB,&  
479  & 1.30048E07_JPRB,1.35880E07_JPRB,1.41924E07_JPRB,1.48187E07_JPRB,1.54675E07_JPRB,&  
480  & 1.61392E07_JPRB,1.68346E07_JPRB,1.75543E07_JPRB,1.82988E07_JPRB,1.90688E07_JPRB,&  
481  & 1.98650E07_JPRB,2.06880E07_JPRB,2.15385E07_JPRB,2.24172E07_JPRB,2.33247E07_JPRB,&  
482  & 2.42617E07_JPRB,2.52289E07_JPRB,2.62272E07_JPRB,2.72571E07_JPRB,2.83193E07_JPRB,&  
483  & 2.94147E07_JPRB,3.05440E07_JPRB,3.17080E07_JPRB,3.29074E07_JPRB,3.41430E07_JPRB,&  
484  & 3.54155E07_JPRB,3.67259E07_JPRB,3.80747E07_JPRB,3.94631E07_JPRB,4.08916E07_JPRB,&  
485  & 4.23611E07_JPRB,4.38725E07_JPRB,4.54267E07_JPRB,4.70245E07_JPRB,4.86666E07_JPRB,&  
486  & 5.03541E07_JPRB,5.20879E07_JPRB,5.38687E07_JPRB,5.56975E07_JPRB,5.75751E07_JPRB,&  
487  & 5.95026E07_JPRB,6.14808E07_JPRB,6.35107E07_JPRB,6.55932E07_JPRB,6.77293E07_JPRB,&  
488  & 6.99197E07_JPRB,7.21656E07_JPRB,7.44681E07_JPRB,7.68278E07_JPRB,7.92460E07_JPRB,&  
489  & 8.17235E07_JPRB,8.42614E07_JPRB,8.68606E07_JPRB,8.95223E07_JPRB,9.22473E07_JPRB,&  
490  & 9.50366E07_JPRB,9.78915E07_JPRB,1.00813E06_JPRB,1.03802E06_JPRB,1.06859E06_JPRB,&  
491  & 1.09986E06_JPRB,1.13184E06_JPRB,1.16453E06_JPRB,1.19796E06_JPRB,1.23212E06_JPRB,&  
492  & 1.26703E06_JPRB,1.30270E06_JPRB,1.33915E06_JPRB,1.37637E06_JPRB,1.41440E06_JPRB,&  
493  & 1.45322E06_JPRB,1.49286E06_JPRB,1.53333E06_JPRB,1.57464E06_JPRB,1.61679E06_JPRB,&  
494  & 1.65981E06_JPRB,1.70370E06_JPRB,1.74847E06_JPRB,1.79414E06_JPRB,1.84071E06_JPRB,&  
495  & 1.88821E06_JPRB,1.93663E06_JPRB,1.98599E06_JPRB,2.03631E06_JPRB,2.08759E06_JPRB,&  
496  & 2.13985E06_JPRB,2.19310E06_JPRB,2.24734E06_JPRB,2.30260E06_JPRB,2.35888E06_JPRB,&  
497 
2/2✓ Branch 0 taken 1 times.
✓ Branch 1 taken 181 times.

182  & 2.41619E06_JPRB/) 
498  
499  TOTPLNK( :,13) = (/&  
500  & 4.53634E11_JPRB,5.11435E11_JPRB,5.75754E11_JPRB,6.47222E11_JPRB,7.26531E11_JPRB,&  
501  & 8.14420E11_JPRB,9.11690E11_JPRB,1.01921E10_JPRB,1.13790E10_JPRB,1.26877E10_JPRB,&  
502  & 1.41288E10_JPRB,1.57140E10_JPRB,1.74555E10_JPRB,1.93665E10_JPRB,2.14613E10_JPRB,&  
503  & 2.37548E10_JPRB,2.62633E10_JPRB,2.90039E10_JPRB,3.19948E10_JPRB,3.52558E10_JPRB,&  
504  & 3.88073E10_JPRB,4.26716E10_JPRB,4.68719E10_JPRB,5.14331E10_JPRB,5.63815E10_JPRB,&  
505  & 6.17448E10_JPRB,6.75526E10_JPRB,7.38358E10_JPRB,8.06277E10_JPRB,8.79625E10_JPRB,&  
506  & 9.58770E10_JPRB,1.04410E09_JPRB,1.13602E09_JPRB,1.23495E09_JPRB,1.34135E09_JPRB,&  
507  & 1.45568E09_JPRB,1.57845E09_JPRB,1.71017E09_JPRB,1.85139E09_JPRB,2.00268E09_JPRB,&  
508  & 2.16464E09_JPRB,2.33789E09_JPRB,2.52309E09_JPRB,2.72093E09_JPRB,2.93212E09_JPRB,&  
509  & 3.15740E09_JPRB,3.39757E09_JPRB,3.65341E09_JPRB,3.92579E09_JPRB,4.21559E09_JPRB,&  
510  & 4.52372E09_JPRB,4.85115E09_JPRB,5.19886E09_JPRB,5.56788E09_JPRB,5.95928E09_JPRB,&  
511  & 6.37419E09_JPRB,6.81375E09_JPRB,7.27917E09_JPRB,7.77168E09_JPRB,8.29256E09_JPRB,&  
512  & 8.84317E09_JPRB,9.42487E09_JPRB,1.00391E08_JPRB,1.06873E08_JPRB,1.13710E08_JPRB,&  
513  & 1.20919E08_JPRB,1.28515E08_JPRB,1.36514E08_JPRB,1.44935E08_JPRB,1.53796E08_JPRB,&  
514  & 1.63114E08_JPRB,1.72909E08_JPRB,1.83201E08_JPRB,1.94008E08_JPRB,2.05354E08_JPRB,&  
515  & 2.17258E08_JPRB,2.29742E08_JPRB,2.42830E08_JPRB,2.56545E08_JPRB,2.70910E08_JPRB,&  
516  & 2.85950E08_JPRB,3.01689E08_JPRB,3.18155E08_JPRB,3.35373E08_JPRB,3.53372E08_JPRB,&  
517  & 3.72177E08_JPRB,3.91818E08_JPRB,4.12325E08_JPRB,4.33727E08_JPRB,4.56056E08_JPRB,&  
518  & 4.79342E08_JPRB,5.03617E08_JPRB,5.28915E08_JPRB,5.55270E08_JPRB,5.82715E08_JPRB,&  
519  & 6.11286E08_JPRB,6.41019E08_JPRB,6.71951E08_JPRB,7.04119E08_JPRB,7.37560E08_JPRB,&  
520  & 7.72315E08_JPRB,8.08424E08_JPRB,8.45927E08_JPRB,8.84866E08_JPRB,9.25281E08_JPRB,&  
521  & 9.67218E08_JPRB,1.01072E07_JPRB,1.05583E07_JPRB,1.10260E07_JPRB,1.15107E07_JPRB,&  
522  & 1.20128E07_JPRB,1.25330E07_JPRB,1.30716E07_JPRB,1.36291E07_JPRB,1.42061E07_JPRB,&  
523  & 1.48031E07_JPRB,1.54206E07_JPRB,1.60592E07_JPRB,1.67192E07_JPRB,1.74015E07_JPRB,&  
524  & 1.81064E07_JPRB,1.88345E07_JPRB,1.95865E07_JPRB,2.03628E07_JPRB,2.11643E07_JPRB,&  
525  & 2.19912E07_JPRB,2.28443E07_JPRB,2.37244E07_JPRB,2.46318E07_JPRB,2.55673E07_JPRB,&  
526  & 2.65316E07_JPRB,2.75252E07_JPRB,2.85489E07_JPRB,2.96033E07_JPRB,3.06891E07_JPRB,&  
527  & 3.18070E07_JPRB,3.29576E07_JPRB,3.41417E07_JPRB,3.53600E07_JPRB,3.66133E07_JPRB,&  
528  & 3.79021E07_JPRB,3.92274E07_JPRB,4.05897E07_JPRB,4.19899E07_JPRB,4.34288E07_JPRB,&  
529  & 4.49071E07_JPRB,4.64255E07_JPRB,4.79850E07_JPRB,4.95863E07_JPRB,5.12300E07_JPRB,&  
530  & 5.29172E07_JPRB,5.46486E07_JPRB,5.64250E07_JPRB,5.82473E07_JPRB,6.01164E07_JPRB,&  
531  & 6.20329E07_JPRB,6.39979E07_JPRB,6.60122E07_JPRB,6.80767E07_JPRB,7.01922E07_JPRB,&  
532  & 7.23596E07_JPRB,7.45800E07_JPRB,7.68539E07_JPRB,7.91826E07_JPRB,8.15669E07_JPRB,&  
533  & 8.40076E07_JPRB,8.65058E07_JPRB,8.90623E07_JPRB,9.16783E07_JPRB,9.43544E07_JPRB,&  
534  & 9.70917E07_JPRB,9.98912E07_JPRB,1.02754E06_JPRB,1.05681E06_JPRB,1.08673E06_JPRB,&  
535  & 1.11731E06_JPRB,1.14856E06_JPRB,1.18050E06_JPRB,1.21312E06_JPRB,1.24645E06_JPRB,&  
536 
2/2✓ Branch 0 taken 1 times.
✓ Branch 1 taken 181 times.

182  & 1.28049E06_JPRB/) 
537  
538  TOTPLNK( :,14) = (/&  
539  & 1.40113E11_JPRB,1.59358E11_JPRB,1.80960E11_JPRB,2.05171E11_JPRB,2.32266E11_JPRB,&  
540  & 2.62546E11_JPRB,2.96335E11_JPRB,3.33990E11_JPRB,3.75896E11_JPRB,4.22469E11_JPRB,&  
541  & 4.74164E11_JPRB,5.31466E11_JPRB,5.94905E11_JPRB,6.65054E11_JPRB,7.42522E11_JPRB,&  
542  & 8.27975E11_JPRB,9.22122E11_JPRB,1.02573E10_JPRB,1.13961E10_JPRB,1.26466E10_JPRB,&  
543  & 1.40181E10_JPRB,1.55206E10_JPRB,1.71651E10_JPRB,1.89630E10_JPRB,2.09265E10_JPRB,&  
544  & 2.30689E10_JPRB,2.54040E10_JPRB,2.79467E10_JPRB,3.07128E10_JPRB,3.37190E10_JPRB,&  
545  & 3.69833E10_JPRB,4.05243E10_JPRB,4.43623E10_JPRB,4.85183E10_JPRB,5.30149E10_JPRB,&  
546  & 5.78755E10_JPRB,6.31255E10_JPRB,6.87910E10_JPRB,7.49002E10_JPRB,8.14824E10_JPRB,&  
547  & 8.85687E10_JPRB,9.61914E10_JPRB,1.04385E09_JPRB,1.13186E09_JPRB,1.22631E09_JPRB,&  
548  & 1.32761E09_JPRB,1.43617E09_JPRB,1.55243E09_JPRB,1.67686E09_JPRB,1.80992E09_JPRB,&  
549  & 1.95212E09_JPRB,2.10399E09_JPRB,2.26607E09_JPRB,2.43895E09_JPRB,2.62321E09_JPRB,&  
550  & 2.81949E09_JPRB,3.02844E09_JPRB,3.25073E09_JPRB,3.48707E09_JPRB,3.73820E09_JPRB,&  
551  & 4.00490E09_JPRB,4.28794E09_JPRB,4.58819E09_JPRB,4.90647E09_JPRB,5.24371E09_JPRB,&  
552  & 5.60081E09_JPRB,5.97875E09_JPRB,6.37854E09_JPRB,6.80120E09_JPRB,7.24782E09_JPRB,&  
553  & 7.71950E09_JPRB,8.21740E09_JPRB,8.74271E09_JPRB,9.29666E09_JPRB,9.88054E09_JPRB,&  
554  & 1.04956E08_JPRB,1.11434E08_JPRB,1.18251E08_JPRB,1.25422E08_JPRB,1.32964E08_JPRB,&  
555  & 1.40890E08_JPRB,1.49217E08_JPRB,1.57961E08_JPRB,1.67140E08_JPRB,1.76771E08_JPRB,&  
556  & 1.86870E08_JPRB,1.97458E08_JPRB,2.08553E08_JPRB,2.20175E08_JPRB,2.32342E08_JPRB,&  
557  & 2.45077E08_JPRB,2.58401E08_JPRB,2.72334E08_JPRB,2.86900E08_JPRB,3.02122E08_JPRB,&  
558  & 3.18021E08_JPRB,3.34624E08_JPRB,3.51954E08_JPRB,3.70037E08_JPRB,3.88899E08_JPRB,&  
559  & 4.08568E08_JPRB,4.29068E08_JPRB,4.50429E08_JPRB,4.72678E08_JPRB,4.95847E08_JPRB,&  
560  & 5.19963E08_JPRB,5.45058E08_JPRB,5.71161E08_JPRB,5.98309E08_JPRB,6.26529E08_JPRB,&  
561  & 6.55857E08_JPRB,6.86327E08_JPRB,7.17971E08_JPRB,7.50829E08_JPRB,7.84933E08_JPRB,&  
562  & 8.20323E08_JPRB,8.57035E08_JPRB,8.95105E08_JPRB,9.34579E08_JPRB,9.75488E08_JPRB,&  
563  & 1.01788E07_JPRB,1.06179E07_JPRB,1.10727E07_JPRB,1.15434E07_JPRB,1.20307E07_JPRB,&  
564  & 1.25350E07_JPRB,1.30566E07_JPRB,1.35961E07_JPRB,1.41539E07_JPRB,1.47304E07_JPRB,&  
565  & 1.53263E07_JPRB,1.59419E07_JPRB,1.65778E07_JPRB,1.72345E07_JPRB,1.79124E07_JPRB,&  
566  & 1.86122E07_JPRB,1.93343E07_JPRB,2.00792E07_JPRB,2.08476E07_JPRB,2.16400E07_JPRB,&  
567  & 2.24568E07_JPRB,2.32988E07_JPRB,2.41666E07_JPRB,2.50605E07_JPRB,2.59813E07_JPRB,&  
568  & 2.69297E07_JPRB,2.79060E07_JPRB,2.89111E07_JPRB,2.99455E07_JPRB,3.10099E07_JPRB,&  
569  & 3.21049E07_JPRB,3.32311E07_JPRB,3.43893E07_JPRB,3.55801E07_JPRB,3.68041E07_JPRB,&  
570  & 3.80621E07_JPRB,3.93547E07_JPRB,4.06826E07_JPRB,4.20465E07_JPRB,4.34473E07_JPRB,&  
571  & 4.48856E07_JPRB,4.63620E07_JPRB,4.78774E07_JPRB,4.94325E07_JPRB,5.10280E07_JPRB,&  
572  & 5.26648E07_JPRB,5.43436E07_JPRB,5.60652E07_JPRB,5.78302E07_JPRB,5.96397E07_JPRB,&  
573  & 6.14943E07_JPRB,6.33949E07_JPRB,6.53421E07_JPRB,6.73370E07_JPRB,6.93803E07_JPRB,&  
574  & 7.14731E07_JPRB,7.36157E07_JPRB,7.58095E07_JPRB,7.80549E07_JPRB,8.03533E07_JPRB,&  
575 
2/2✓ Branch 0 taken 1 times.
✓ Branch 1 taken 181 times.

182  & 8.27050E07_JPRB/) 
576  
577  TOTPLNK( :,15) = (/&  
578  & 3.90483E12_JPRB,4.47999E12_JPRB,5.13122E12_JPRB,5.86739E12_JPRB,6.69829E12_JPRB,&  
579  & 7.63467E12_JPRB,8.68833E12_JPRB,9.87221E12_JPRB,1.12005E11_JPRB,1.26885E11_JPRB,&  
580  & 1.43534E11_JPRB,1.62134E11_JPRB,1.82888E11_JPRB,2.06012E11_JPRB,2.31745E11_JPRB,&  
581  & 2.60343E11_JPRB,2.92087E11_JPRB,3.27277E11_JPRB,3.66242E11_JPRB,4.09334E11_JPRB,&  
582  & 4.56935E11_JPRB,5.09455E11_JPRB,5.67338E11_JPRB,6.31057E11_JPRB,7.01127E11_JPRB,&  
583  & 7.78096E11_JPRB,8.62554E11_JPRB,9.55130E11_JPRB,1.05651E10_JPRB,1.16740E10_JPRB,&  
584  & 1.28858E10_JPRB,1.42089E10_JPRB,1.56519E10_JPRB,1.72243E10_JPRB,1.89361E10_JPRB,&  
585  & 2.07978E10_JPRB,2.28209E10_JPRB,2.50173E10_JPRB,2.73999E10_JPRB,2.99820E10_JPRB,&  
586  & 3.27782E10_JPRB,3.58034E10_JPRB,3.90739E10_JPRB,4.26067E10_JPRB,4.64196E10_JPRB,&  
587  & 5.05317E10_JPRB,5.49631E10_JPRB,5.97347E10_JPRB,6.48689E10_JPRB,7.03891E10_JPRB,&  
588  & 7.63201E10_JPRB,8.26876E10_JPRB,8.95192E10_JPRB,9.68430E10_JPRB,1.04690E09_JPRB,&  
589  & 1.13091E09_JPRB,1.22079E09_JPRB,1.31689E09_JPRB,1.41957E09_JPRB,1.52922E09_JPRB,&  
590  & 1.64623E09_JPRB,1.77101E09_JPRB,1.90401E09_JPRB,2.04567E09_JPRB,2.19647E09_JPRB,&  
591  & 2.35690E09_JPRB,2.52749E09_JPRB,2.70875E09_JPRB,2.90127E09_JPRB,3.10560E09_JPRB,&  
592  & 3.32238E09_JPRB,3.55222E09_JPRB,3.79578E09_JPRB,4.05375E09_JPRB,4.32682E09_JPRB,&  
593  & 4.61574E09_JPRB,4.92128E09_JPRB,5.24420E09_JPRB,5.58536E09_JPRB,5.94558E09_JPRB,&  
594  & 6.32575E09_JPRB,6.72678E09_JPRB,7.14964E09_JPRB,7.59526E09_JPRB,8.06470E09_JPRB,&  
595  & 8.55897E09_JPRB,9.07916E09_JPRB,9.62638E09_JPRB,1.02018E08_JPRB,1.08066E08_JPRB,&  
596  & 1.14420E08_JPRB,1.21092E08_JPRB,1.28097E08_JPRB,1.35446E08_JPRB,1.43155E08_JPRB,&  
597  & 1.51237E08_JPRB,1.59708E08_JPRB,1.68581E08_JPRB,1.77873E08_JPRB,1.87599E08_JPRB,&  
598  & 1.97777E08_JPRB,2.08423E08_JPRB,2.19555E08_JPRB,2.31190E08_JPRB,2.43348E08_JPRB,&  
599  & 2.56045E08_JPRB,2.69302E08_JPRB,2.83140E08_JPRB,2.97578E08_JPRB,3.12636E08_JPRB,&  
600  & 3.28337E08_JPRB,3.44702E08_JPRB,3.61755E08_JPRB,3.79516E08_JPRB,3.98012E08_JPRB,&  
601  & 4.17265E08_JPRB,4.37300E08_JPRB,4.58143E08_JPRB,4.79819E08_JPRB,5.02355E08_JPRB,&  
602  & 5.25777E08_JPRB,5.50114E08_JPRB,5.75393E08_JPRB,6.01644E08_JPRB,6.28896E08_JPRB,&  
603  & 6.57177E08_JPRB,6.86521E08_JPRB,7.16959E08_JPRB,7.48520E08_JPRB,7.81239E08_JPRB,&  
604  & 8.15148E08_JPRB,8.50282E08_JPRB,8.86675E08_JPRB,9.24362E08_JPRB,9.63380E08_JPRB,&  
605  & 1.00376E07_JPRB,1.04555E07_JPRB,1.08878E07_JPRB,1.13349E07_JPRB,1.17972E07_JPRB,&  
606  & 1.22751E07_JPRB,1.27690E07_JPRB,1.32793E07_JPRB,1.38064E07_JPRB,1.43508E07_JPRB,&  
607  & 1.49129E07_JPRB,1.54931E07_JPRB,1.60920E07_JPRB,1.67099E07_JPRB,1.73473E07_JPRB,&  
608  & 1.80046E07_JPRB,1.86825E07_JPRB,1.93812E07_JPRB,2.01014E07_JPRB,2.08436E07_JPRB,&  
609  & 2.16082E07_JPRB,2.23957E07_JPRB,2.32067E07_JPRB,2.40418E07_JPRB,2.49013E07_JPRB,&  
610  & 2.57860E07_JPRB,2.66963E07_JPRB,2.76328E07_JPRB,2.85961E07_JPRB,2.95868E07_JPRB,&  
611  & 3.06053E07_JPRB,3.16524E07_JPRB,3.27286E07_JPRB,3.38345E07_JPRB,3.49707E07_JPRB,&  
612  & 3.61379E07_JPRB,3.73367E07_JPRB,3.85676E07_JPRB,3.98315E07_JPRB,4.11287E07_JPRB,&  
613  & 4.24602E07_JPRB,4.38265E07_JPRB,4.52283E07_JPRB,4.66662E07_JPRB,4.81410E07_JPRB,&  
614 
2/2✓ Branch 0 taken 1 times.
✓ Branch 1 taken 181 times.

182  & 4.96535E07_JPRB/) 
615  
616  TOTPLNK( :,16) = (/&  
617  & 4.65378E13_JPRB,5.41927E13_JPRB,6.29913E13_JPRB,7.30869E13_JPRB,8.46510E13_JPRB,&  
618  & 9.78750E13_JPRB,1.12972E12_JPRB,1.30181E12_JPRB,1.49764E12_JPRB,1.72016E12_JPRB,&  
619  & 1.97260E12_JPRB,2.25858E12_JPRB,2.58206E12_JPRB,2.94744E12_JPRB,3.35955E12_JPRB,&  
620  & 3.82372E12_JPRB,4.34581E12_JPRB,4.93225E12_JPRB,5.59010E12_JPRB,6.32711E12_JPRB,&  
621  & 7.15171E12_JPRB,8.07317E12_JPRB,9.10159E12_JPRB,1.02480E11_JPRB,1.15244E11_JPRB,&  
622  & 1.29438E11_JPRB,1.45204E11_JPRB,1.62697E11_JPRB,1.82084E11_JPRB,2.03545E11_JPRB,&  
623  & 2.27278E11_JPRB,2.53494E11_JPRB,2.82424E11_JPRB,3.14313E11_JPRB,3.49431E11_JPRB,&  
624  & 3.88064E11_JPRB,4.30522E11_JPRB,4.77139E11_JPRB,5.28273E11_JPRB,5.84308E11_JPRB,&  
625  & 6.45658E11_JPRB,7.12764E11_JPRB,7.86103E11_JPRB,8.66176E11_JPRB,9.53534E11_JPRB,&  
626  & 1.04875E10_JPRB,1.15245E10_JPRB,1.26528E10_JPRB,1.38796E10_JPRB,1.52123E10_JPRB,&  
627  & 1.66590E10_JPRB,1.82281E10_JPRB,1.99287E10_JPRB,2.17704E10_JPRB,2.37632E10_JPRB,&  
628  & 2.59182E10_JPRB,2.82468E10_JPRB,3.07610E10_JPRB,3.34738E10_JPRB,3.63988E10_JPRB,&  
629  & 3.95504E10_JPRB,4.29438E10_JPRB,4.65951E10_JPRB,5.05212E10_JPRB,5.47402E10_JPRB,&  
630  & 5.92707E10_JPRB,6.41329E10_JPRB,6.93477E10_JPRB,7.49371E10_JPRB,8.09242E10_JPRB,&  
631  & 8.73338E10_JPRB,9.41911E10_JPRB,1.01524E09_JPRB,1.09359E09_JPRB,1.17728E09_JPRB,&  
632  & 1.26660E09_JPRB,1.36190E09_JPRB,1.46350E09_JPRB,1.57177E09_JPRB,1.68709E09_JPRB,&  
633  & 1.80984E09_JPRB,1.94044E09_JPRB,2.07932E09_JPRB,2.22693E09_JPRB,2.38373E09_JPRB,&  
634  & 2.55021E09_JPRB,2.72689E09_JPRB,2.91429E09_JPRB,3.11298E09_JPRB,3.32353E09_JPRB,&  
635  & 3.54655E09_JPRB,3.78265E09_JPRB,4.03251E09_JPRB,4.29679E09_JPRB,4.57620E09_JPRB,&  
636  & 4.87148E09_JPRB,5.18341E09_JPRB,5.51276E09_JPRB,5.86037E09_JPRB,6.22708E09_JPRB,&  
637  & 6.61381E09_JPRB,7.02145E09_JPRB,7.45097E09_JPRB,7.90336E09_JPRB,8.37967E09_JPRB,&  
638  & 8.88092E09_JPRB,9.40827E09_JPRB,9.96280E09_JPRB,1.05457E08_JPRB,1.11583E08_JPRB,&  
639  & 1.18017E08_JPRB,1.24773E08_JPRB,1.31865E08_JPRB,1.39306E08_JPRB,1.47111E08_JPRB,&  
640  & 1.55295E08_JPRB,1.63872E08_JPRB,1.72860E08_JPRB,1.82274E08_JPRB,1.92132E08_JPRB,&  
641  & 2.02450E08_JPRB,2.13247E08_JPRB,2.24541E08_JPRB,2.36352E08_JPRB,2.48699E08_JPRB,&  
642  & 2.61602E08_JPRB,2.75082E08_JPRB,2.89161E08_JPRB,3.03860E08_JPRB,3.19203E08_JPRB,&  
643  & 3.35213E08_JPRB,3.51913E08_JPRB,3.69330E08_JPRB,3.87486E08_JPRB,4.06411E08_JPRB,&  
644  & 4.26129E08_JPRB,4.46668E08_JPRB,4.68058E08_JPRB,4.90325E08_JPRB,5.13502E08_JPRB,&  
645  & 5.37617E08_JPRB,5.62703E08_JPRB,5.88791E08_JPRB,6.15915E08_JPRB,6.44107E08_JPRB,&  
646  & 6.73404E08_JPRB,7.03841E08_JPRB,7.35453E08_JPRB,7.68278E08_JPRB,8.02355E08_JPRB,&  
647  & 8.37721E08_JPRB,8.74419E08_JPRB,9.12486E08_JPRB,9.51968E08_JPRB,9.92905E08_JPRB,&  
648  & 1.03534E07_JPRB,1.07932E07_JPRB,1.12490E07_JPRB,1.17211E07_JPRB,1.22100E07_JPRB,&  
649  & 1.27163E07_JPRB,1.32404E07_JPRB,1.37829E07_JPRB,1.43443E07_JPRB,1.49250E07_JPRB,&  
650  & 1.55257E07_JPRB,1.61470E07_JPRB,1.67893E07_JPRB,1.74532E07_JPRB,1.81394E07_JPRB,&  
651  & 1.88485E07_JPRB,1.95810E07_JPRB,2.03375E07_JPRB,2.11189E07_JPRB,2.19256E07_JPRB,&  
652  & 2.27583E07_JPRB,2.36177E07_JPRB,2.45046E07_JPRB,2.54196E07_JPRB,2.63634E07_JPRB,&  
653 
2/2✓ Branch 0 taken 181 times.
✓ Branch 1 taken 1 times.

182  & 2.73367E07_JPRB/) 
654  
655  TOTPLK16( :) = (/&  
656  & 4.46128E13_JPRB,5.19008E13_JPRB,6.02681E13_JPRB,6.98580E13_JPRB,8.08302E13_JPRB,&  
657  & 9.33629E13_JPRB,1.07654E12_JPRB,1.23925E12_JPRB,1.42419E12_JPRB,1.63407E12_JPRB,&  
658  & 1.87190E12_JPRB,2.14099E12_JPRB,2.44498E12_JPRB,2.78793E12_JPRB,3.17424E12_JPRB,&  
659  & 3.60881E12_JPRB,4.09698E12_JPRB,4.64461E12_JPRB,5.25813E12_JPRB,5.94456E12_JPRB,&  
660  & 6.71156E12_JPRB,7.56752E12_JPRB,8.52154E12_JPRB,9.58357E12_JPRB,1.07644E11_JPRB,&  
661  & 1.20758E11_JPRB,1.35304E11_JPRB,1.51420E11_JPRB,1.69256E11_JPRB,1.88973E11_JPRB,&  
662  & 2.10746E11_JPRB,2.34762E11_JPRB,2.61227E11_JPRB,2.90356E11_JPRB,3.22388E11_JPRB,&  
663  & 3.57574E11_JPRB,3.96187E11_JPRB,4.38519E11_JPRB,4.84883E11_JPRB,5.35616E11_JPRB,&  
664  & 5.91075E11_JPRB,6.51647E11_JPRB,7.17743E11_JPRB,7.89797E11_JPRB,8.68284E11_JPRB,&  
665  & 9.53697E11_JPRB,1.04658E10_JPRB,1.14748E10_JPRB,1.25701E10_JPRB,1.37582E10_JPRB,&  
666  & 1.50457E10_JPRB,1.64400E10_JPRB,1.79487E10_JPRB,1.95799E10_JPRB,2.13422E10_JPRB,&  
667  & 2.32446E10_JPRB,2.52970E10_JPRB,2.75094E10_JPRB,2.98925E10_JPRB,3.24578E10_JPRB,&  
668  & 3.52172E10_JPRB,3.81833E10_JPRB,4.13695E10_JPRB,4.47897E10_JPRB,4.84588E10_JPRB,&  
669  & 5.23922E10_JPRB,5.66063E10_JPRB,6.11182E10_JPRB,6.59459E10_JPRB,7.11081E10_JPRB,&  
670  & 7.66251E10_JPRB,8.25172E10_JPRB,8.88065E10_JPRB,9.55155E10_JPRB,1.02668E09_JPRB,&  
671  & 1.10290E09_JPRB,1.18406E09_JPRB,1.27044E09_JPRB,1.36233E09_JPRB,1.46002E09_JPRB,&  
672  & 1.56382E09_JPRB,1.67406E09_JPRB,1.79108E09_JPRB,1.91522E09_JPRB,2.04686E09_JPRB,&  
673  & 2.18637E09_JPRB,2.33416E09_JPRB,2.49063E09_JPRB,2.65622E09_JPRB,2.83136E09_JPRB,&  
674  & 3.01653E09_JPRB,3.21221E09_JPRB,3.41890E09_JPRB,3.63712E09_JPRB,3.86740E09_JPRB,&  
675  & 4.11030E09_JPRB,4.36641E09_JPRB,4.63631E09_JPRB,4.92064E09_JPRB,5.22003E09_JPRB,&  
676  & 5.53516E09_JPRB,5.86670E09_JPRB,6.21538E09_JPRB,6.58191E09_JPRB,6.96708E09_JPRB,&  
677  & 7.37165E09_JPRB,7.79645E09_JPRB,8.24229E09_JPRB,8.71007E09_JPRB,9.20066E09_JPRB,&  
678  & 9.71498E09_JPRB,1.02540E08_JPRB,1.08186E08_JPRB,1.14100E08_JPRB,1.20290E08_JPRB,&  
679  & 1.26767E08_JPRB,1.33544E08_JPRB,1.40630E08_JPRB,1.48038E08_JPRB,1.55780E08_JPRB,&  
680  & 1.63867E08_JPRB,1.72313E08_JPRB,1.81130E08_JPRB,1.90332E08_JPRB,1.99932E08_JPRB,&  
681  & 2.09945E08_JPRB,2.20385E08_JPRB,2.31267E08_JPRB,2.42605E08_JPRB,2.54416E08_JPRB,&  
682  & 2.66716E08_JPRB,2.79520E08_JPRB,2.92846E08_JPRB,3.06711E08_JPRB,3.21133E08_JPRB,&  
683  & 3.36128E08_JPRB,3.51717E08_JPRB,3.67918E08_JPRB,3.84749E08_JPRB,4.02232E08_JPRB,&  
684  & 4.20386E08_JPRB,4.39231E08_JPRB,4.58790E08_JPRB,4.79083E08_JPRB,5.00132E08_JPRB,&  
685  & 5.21961E08_JPRB,5.44592E08_JPRB,5.68049E08_JPRB,5.92356E08_JPRB,6.17537E08_JPRB,&  
686  & 6.43617E08_JPRB,6.70622E08_JPRB,6.98578E08_JPRB,7.27511E08_JPRB,7.57449E08_JPRB,&  
687  & 7.88419E08_JPRB,8.20449E08_JPRB,8.53568E08_JPRB,8.87805E08_JPRB,9.23190E08_JPRB,&  
688  & 9.59753E08_JPRB,9.97526E08_JPRB,1.03654E07_JPRB,1.07682E07_JPRB,1.11841E07_JPRB,&  
689  & 1.16134E07_JPRB,1.20564E07_JPRB,1.25135E07_JPRB,1.29850E07_JPRB,1.34712E07_JPRB,&  
690  & 1.39726E07_JPRB,1.44894E07_JPRB,1.50221E07_JPRB,1.55711E07_JPRB,1.61367E07_JPRB,&  
691  & 1.67193E07_JPRB,1.73193E07_JPRB,1.79371E07_JPRB,1.85732E07_JPRB,1.92279E07_JPRB,&  
692  1  & 1.99016E07_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 