*     -*-fortran-*-
*
*     Parameter xi of the massive coefficient functions tabulation
*
      data xigrid(   1 ) /  1.0000000000000000D-003   /
      data xigrid(   2 ) /  1.0563541037491872D-003   /
      data xigrid(   3 ) /  1.1158839925077485D-003   /
      data xigrid(   4 ) /  1.1787686347935874D-003   /
      data xigrid(   5 ) /  1.2451970847350332D-003   /
      data xigrid(   6 ) /  1.3153690504363767D-003   /
      data xigrid(   7 ) /  1.3894954943731383D-003   /
      data xigrid(   8 ) /  1.4677992676220704D-003   /
      data xigrid(   9 ) /  1.5505157798326257D-003   /
      data xigrid(  10 ) /  1.6378937069540655D-003   /
      data xigrid(  11 ) /  1.7301957388458958D-003   /
      data xigrid(  12 ) /  1.8276993690192192D-003   /
      data xigrid(  13 ) /  1.9306977288832522D-003   /
      data xigrid(  14 ) /  2.0395004690050593D-003   /
      data xigrid(  15 ) /  2.1544346900318864D-003   /
      data xigrid(  16 ) /  2.2758459260747914D-003   /
      data xigrid(  17 ) /  2.4040991835099753D-003   /
      data xigrid(  18 ) /  2.5395800383208327D-003   /
      data xigrid(  19 ) /  2.6826957952797298D-003   /
      data xigrid(  20 ) /  2.8338767124544322D-003   /
      data xigrid(  21 ) /  2.9935772947204948D-003   /
      data xigrid(  22 ) /  3.1622776601683850D-003   /
      data xigrid(  23 ) /  3.3404849835132512D-003   /
      data xigrid(  24 ) /  3.5287350208467591D-003   /
      data xigrid(  25 ) /  3.7275937203149478D-003   /
      data xigrid(  26 ) /  3.9376589235643952D-003   /
      data xigrid(  27 ) /  4.1595621630718558D-003   /
      data xigrid(  28 ) /  4.3939705607608012D-003   /
      data xigrid(  29 ) /  4.6415888336127902D-003   /
      data xigrid(  30 ) /  4.9031614123032745D-003   /
      data xigrid(  31 ) /  5.1794746792312250D-003   /
      data xigrid(  32 ) /  5.4713593326709102D-003   /
      data xigrid(  33 ) /  5.7796928841533307D-003   /
      data xigrid(  34 ) /  6.1054022965853468D-003   /
      data xigrid(  35 ) /  6.4494667710376435D-003   /
      data xigrid(  36 ) /  6.8129206905796344D-003   /
      data xigrid(  37 ) /  7.1968567300115431D-003   /
      data xigrid(  38 ) /  7.6024291408426500D-003   /
      data xigrid(  39 ) /  8.0308572213915411D-003   /
      data xigrid(  40 ) /  8.4834289824407497D-003   /
      data xigrid(  41 ) /  8.9615050194660779D-003   /
      data xigrid(  42 ) /  9.4665226030819314D-003   /
      data xigrid(  43 ) /  1.0000000000000037D-002   /
      data xigrid(  44 ) /  1.0563541037491912D-002   /
      data xigrid(  45 ) /  1.1158839925077529D-002   /
      data xigrid(  46 ) /  1.1787686347935920D-002   /
      data xigrid(  47 ) /  1.2451970847350379D-002   /
      data xigrid(  48 ) /  1.3153690504363817D-002   /
      data xigrid(  49 ) /  1.3894954943731434D-002   /
      data xigrid(  50 ) /  1.4677992676220757D-002   /
      data xigrid(  51 ) /  1.5505157798326313D-002   /
      data xigrid(  52 ) /  1.6378937069540713D-002   /
      data xigrid(  53 ) /  1.7301957388459018D-002   /
      data xigrid(  54 ) /  1.8276993690192256D-002   /
      data xigrid(  55 ) /  1.9306977288832593D-002   /
      data xigrid(  56 ) /  2.0395004690050667D-002   /
      data xigrid(  57 ) /  2.1544346900318943D-002   /
      data xigrid(  58 ) /  2.2758459260747998D-002   /
      data xigrid(  59 ) /  2.4040991835099841D-002   /
      data xigrid(  60 ) /  2.5395800383208423D-002   /
      data xigrid(  61 ) /  2.6826957952797399D-002   /
      data xigrid(  62 ) /  2.8338767124544428D-002   /
      data xigrid(  63 ) /  2.9935772947205060D-002   /
      data xigrid(  64 ) /  3.1622776601683965D-002   /
      data xigrid(  65 ) /  3.3404849835132637D-002   /
      data xigrid(  66 ) /  3.5287350208467724D-002   /
      data xigrid(  67 ) /  3.7275937203149617D-002   /
      data xigrid(  68 ) /  3.9376589235644098D-002   /
      data xigrid(  69 ) /  4.1595621630718713D-002   /
      data xigrid(  70 ) /  4.3939705607608175D-002   /
      data xigrid(  71 ) /  4.6415888336128072D-002   /
      data xigrid(  72 ) /  4.9031614123032925D-002   /
      data xigrid(  73 ) /  5.1794746792312440D-002   /
      data xigrid(  74 ) /  5.4713593326709296D-002   /
      data xigrid(  75 ) /  5.7796928841533514D-002   /
      data xigrid(  76 ) /  6.1054022965853688D-002   /
      data xigrid(  77 ) /  6.4494667710376666D-002   /
      data xigrid(  78 ) /  6.8129206905796588D-002   /
      data xigrid(  79 ) /  7.1968567300115693D-002   /
      data xigrid(  80 ) /  7.6024291408426772D-002   /
      data xigrid(  81 ) /  8.0308572213915699D-002   /
      data xigrid(  82 ) /  8.4834289824407799D-002   /
      data xigrid(  83 ) /  8.9615050194661094D-002   /
      data xigrid(  84 ) /  9.4665226030819644D-002   /
      data xigrid(  85 ) /  0.10000000000000071D0     /
      data xigrid(  86 ) /  0.10563541037491948D0     /
      data xigrid(  87 ) /  0.11158839925077567D0     /
      data xigrid(  88 ) /  0.11787686347935961D0     /
      data xigrid(  89 ) /  0.12451970847350421D0     /
      data xigrid(  90 ) /  0.13153690504363863D0     /
      data xigrid(  91 ) /  0.13894954943731483D0     /
      data xigrid(  92 ) /  0.14677992676220808D0     /
      data xigrid(  93 ) /  0.15505157798326366D0     /
      data xigrid(  94 ) /  0.16378937069540769D0     /
      data xigrid(  95 ) /  0.17301957388459080D0     /
      data xigrid(  96 ) /  0.18276993690192320D0     /
      data xigrid(  97 ) /  0.19306977288832658D0     /
      data xigrid(  98 ) /  0.20395004690050736D0     /
      data xigrid(  99 ) /  0.21544346900319017D0     /
      data xigrid( 100 ) /  0.22758459260748076D0     /
      data xigrid( 101 ) /  0.24040991835099926D0     /
      data xigrid( 102 ) /  0.25395800383208511D0     /
      data xigrid( 103 ) /  0.26826957952797492D0     /
      data xigrid( 104 ) /  0.28338767124544528D0     /
      data xigrid( 105 ) /  0.29935772947205169D0     /
      data xigrid( 106 ) /  0.31622776601684083D0     /
      data xigrid( 107 ) /  0.33404849835132761D0     /
      data xigrid( 108 ) /  0.35287350208467855D0     /
      data xigrid( 109 ) /  0.37275937203149756D0     /
      data xigrid( 110 ) /  0.39376589235644244D0     /
      data xigrid( 111 ) /  0.41595621630718871D0     /
      data xigrid( 112 ) /  0.43939705607608337D0     /
      data xigrid( 113 ) /  0.46415888336128241D0     /
      data xigrid( 114 ) /  0.49031614123033102D0     /
      data xigrid( 115 ) /  0.51794746792312629D0     /
      data xigrid( 116 ) /  0.54713593326709498D0     /
      data xigrid( 117 ) /  0.57796928841533723D0     /
      data xigrid( 118 ) /  0.61054022965853905D0     /
      data xigrid( 119 ) /  0.64494667710376896D0     /
      data xigrid( 120 ) /  0.68129206905796835D0     /
      data xigrid( 121 ) /  0.71968567300115960D0     /
      data xigrid( 122 ) /  0.76024291408427058D0     /
      data xigrid( 123 ) /  0.80308572213916007D0     /
      data xigrid( 124 ) /  0.84834289824408127D0     /
      data xigrid( 125 ) /  0.89615050194661439D0     /
      data xigrid( 126 ) /  0.94665226030820016D0     /
      data xigrid( 127 ) /   1.0000000000000111D0     /
      data xigrid( 128 ) /   1.0563541037491990D0     /
      data xigrid( 129 ) /   1.1158839925077610D0     /
      data xigrid( 130 ) /   1.1787686347936006D0     /
      data xigrid( 131 ) /   1.2451970847350471D0     /
      data xigrid( 132 ) /   1.3153690504363915D0     /
      data xigrid( 133 ) /   1.3894954943731539D0     /
      data xigrid( 134 ) /   1.4677992676220868D0     /
      data xigrid( 135 ) /   1.5505157798326430D0     /
      data xigrid( 136 ) /   1.6378937069540838D0     /
      data xigrid( 137 ) /   1.7301957388459150D0     /
      data xigrid( 138 ) /   1.8276993690192394D0     /
      data xigrid( 139 ) /   1.9306977288832736D0     /
      data xigrid( 140 ) /   2.0395004690050818D0     /
      data xigrid( 141 ) /   2.1544346900319100D0     /
      data xigrid( 142 ) /   2.2758459260748163D0     /
      data xigrid( 143 ) /   2.4040991835100018D0     /
      data xigrid( 144 ) /   2.5395800383208607D0     /
      data xigrid( 145 ) /   2.6826957952797592D0     /
      data xigrid( 146 ) /   2.8338767124544630D0     /
      data xigrid( 147 ) /   2.9935772947205277D0     /
      data xigrid( 148 ) /   3.1622776601684195D0     /
      data xigrid( 149 ) /   3.3404849835132877D0     /
      data xigrid( 150 ) /   3.5287350208467978D0     /
      data xigrid( 151 ) /   3.7275937203149887D0     /
      data xigrid( 152 ) /   3.9376589235644386D0     /
      data xigrid( 153 ) /   4.1595621630719020D0     /
      data xigrid( 154 ) /   4.3939705607608497D0     /
      data xigrid( 155 ) /   4.6415888336128415D0     /
      data xigrid( 156 ) /   4.9031614123033282D0     /
      data xigrid( 157 ) /   5.1794746792312818D0     /
      data xigrid( 158 ) /   5.4713593326709695D0     /
      data xigrid( 159 ) /   5.7796928841533930D0     /
      data xigrid( 160 ) /   6.1054022965854129D0     /
      data xigrid( 161 ) /   6.4494667710377138D0     /
      data xigrid( 162 ) /   6.8129206905797091D0     /
      data xigrid( 163 ) /   7.1968567300116222D0     /
      data xigrid( 164 ) /   7.6024291408427338D0     /
      data xigrid( 165 ) /   8.0308572213916296D0     /
      data xigrid( 166 ) /   8.4834289824408433D0     /
      data xigrid( 167 ) /   8.9615050194661769D0     /
      data xigrid( 168 ) /   9.4665226030820371D0     /
      data xigrid( 169 ) /   10.000000000000149D0     /
      data xigrid( 170 ) /   10.563541037492030D0     /
      data xigrid( 171 ) /   11.158839925077652D0     /
      data xigrid( 172 ) /   11.787686347936051D0     /
      data xigrid( 173 ) /   12.451970847350516D0     /
      data xigrid( 174 ) /   13.153690504363963D0     /
      data xigrid( 175 ) /   13.894954943731589D0     /
      data xigrid( 176 ) /   14.677992676220921D0     /
      data xigrid( 177 ) /   15.505157798326485D0     /
      data xigrid( 178 ) /   16.378937069540896D0     /
      data xigrid( 179 ) /   17.301957388459211D0     /
      data xigrid( 180 ) /   18.276993690192459D0     /
      data xigrid( 181 ) /   19.306977288832805D0     /
      data xigrid( 182 ) /   20.395004690050889D0     /
      data xigrid( 183 ) /   21.544346900319177D0     /
      data xigrid( 184 ) /   22.758459260748243D0     /
      data xigrid( 185 ) /   24.040991835100101D0     /
      data xigrid( 186 ) /   25.395800383208694D0     /
      data xigrid( 187 ) /   26.826957952797688D0     /
      data xigrid( 188 ) /   28.338767124544734D0     /
      data xigrid( 189 ) /   29.935772947205386D0     /
      data xigrid( 190 ) /   31.622776601684311D0     /
      data xigrid( 191 ) /   33.404849835133000D0     /
      data xigrid( 192 ) /   35.287350208468105D0     /
      data xigrid( 193 ) /   37.275937203150022D0     /
      data xigrid( 194 ) /   39.376589235644531D0     /
      data xigrid( 195 ) /   41.595621630719172D0     /
      data xigrid( 196 ) /   43.939705607608659D0     /
      data xigrid( 197 ) /   46.415888336128582D0     /
      data xigrid( 198 ) /   49.031614123033464D0     /
      data xigrid( 199 ) /   51.794746792313006D0     /
      data xigrid( 200 ) /   54.713593326709898D0     /
      data xigrid( 201 ) /   57.796928841534147D0     /
      data xigrid( 202 ) /   61.054022965854358D0     /
      data xigrid( 203 ) /   64.494667710377371D0     /
      data xigrid( 204 ) /   68.129206905797332D0     /
      data xigrid( 205 ) /   71.968567300116476D0     /
      data xigrid( 206 ) /   76.024291408427601D0     /
      data xigrid( 207 ) /   80.308572213916577D0     /
      data xigrid( 208 ) /   84.834289824408728D0     /
      data xigrid( 209 ) /   89.615050194662075D0     /
      data xigrid( 210 ) /   94.665226030820691D0     /
      data xigrid( 211 ) /   100.00000000000182D0     /
      data xigrid( 212 ) /   105.63541037492065D0     /
      data xigrid( 213 ) /   111.58839925077690D0     /
      data xigrid( 214 ) /   117.87686347936091D0     /
      data xigrid( 215 ) /   124.51970847350559D0     /
      data xigrid( 216 ) /   131.53690504364008D0     /
      data xigrid( 217 ) /   138.94954943731636D0     /
      data xigrid( 218 ) /   146.77992676220973D0     /
      data xigrid( 219 ) /   155.05157798326539D0     /
      data xigrid( 220 ) /   163.78937069540953D0     /
      data xigrid( 221 ) /   173.01957388459272D0     /
      data xigrid( 222 ) /   182.76993690192523D0     /
      data xigrid( 223 ) /   193.06977288832874D0     /
      data xigrid( 224 ) /   203.95004690050965D0     /
      data xigrid( 225 ) /   215.44346900319258D0     /
      data xigrid( 226 ) /   227.58459260748330D0     /
      data xigrid( 227 ) /   240.40991835100192D0     /
      data xigrid( 228 ) /   253.95800383208791D0     /
      data xigrid( 229 ) /   268.26957952797790D0     /
      data xigrid( 230 ) /   283.38767124544842D0     /
      data xigrid( 231 ) /   299.35772947205498D0     /
      data xigrid( 232 ) /   316.22776601684433D0     /
      data xigrid( 233 ) /   334.04849835133126D0     /
      data xigrid( 234 ) /   352.87350208468240D0     /
      data xigrid( 235 ) /   372.75937203150164D0     /
      data xigrid( 236 ) /   393.76589235644678D0     /
      data xigrid( 237 ) /   415.95621630719330D0     /
      data xigrid( 238 ) /   439.39705607608823D0     /
      data xigrid( 239 ) /   464.15888336128756D0     /
      data xigrid( 240 ) /   490.31614123033648D0     /
      data xigrid( 241 ) /   517.94746792313197D0     /
      data xigrid( 242 ) /   547.13593326710100D0     /
      data xigrid( 243 ) /   577.96928841534361D0     /
      data xigrid( 244 ) /   610.54022965854585D0     /
      data xigrid( 245 ) /   644.94667710377621D0     /
      data xigrid( 246 ) /   681.29206905797594D0     /
      data xigrid( 247 ) /   719.68567300116752D0     /
      data xigrid( 248 ) /   760.24291408427894D0     /
      data xigrid( 249 ) /   803.08572213916887D0     /
      data xigrid( 250 ) /   848.34289824409052D0     /
      data xigrid( 251 ) /   896.15050194662422D0     /
      data xigrid( 252 ) /   946.65226030821054D0     /
      data xigrid( 253 ) /   1000.0000000000221D0     /
      data xigrid( 254 ) /   1056.3541037492105D0     /
      data xigrid( 255 ) /   1115.8839925077732D0     /
      data xigrid( 256 ) /   1178.7686347936135D0     /
      data xigrid( 257 ) /   1245.1970847350606D0     /
      data xigrid( 258 ) /   1315.3690504364056D0     /
      data xigrid( 259 ) /   1389.4954943731686D0     /
      data xigrid( 260 ) /   1467.7992676221024D0     /
      data xigrid( 261 ) /   1550.5157798326595D0     /
      data xigrid( 262 ) /   1637.8937069541012D0     /
      data xigrid( 263 ) /   1730.1957388459334D0     /
      data xigrid( 264 ) /   1827.6993690192589D0     /
      data xigrid( 265 ) /   1930.6977288832943D0     /
      data xigrid( 266 ) /   2039.5004690051037D0     /
      data xigrid( 267 ) /   2154.4346900319333D0     /
      data xigrid( 268 ) /   2275.8459260748409D0     /
      data xigrid( 269 ) /   2404.0991835100276D0     /
      data xigrid( 270 ) /   2539.5800383208880D0     /
      data xigrid( 271 ) /   2682.6957952797884D0     /
      data xigrid( 272 ) /   2833.8767124544938D0     /
      data xigrid( 273 ) /   2993.5772947205601D0     /
      data xigrid( 274 ) /   3162.2776601684536D0     /
      data xigrid( 275 ) /   3340.4849835133236D0     /
      data xigrid( 276 ) /   3528.7350208468356D0     /
      data xigrid( 277 ) /   3727.5937203150288D0     /
      data xigrid( 278 ) /   3937.6589235644810D0     /
      data xigrid( 279 ) /   4159.5621630719470D0     /
      data xigrid( 280 ) /   4393.9705607608976D0     /
      data xigrid( 281 ) /   4641.5888336128919D0     /
      data xigrid( 282 ) /   4903.1614123033814D0     /
      data xigrid( 283 ) /   5179.4746792313381D0     /
      data xigrid( 284 ) /   5471.3593326710297D0     /
      data xigrid( 285 ) /   5779.6928841534573D0     /
      data xigrid( 286 ) /   6105.4022965854801D0     /
      data xigrid( 287 ) /   6449.4667710377844D0     /
      data xigrid( 288 ) /   6812.9206905797837D0     /
      data xigrid( 289 ) /   7196.8567300117011D0     /
      data xigrid( 290 ) /   7602.4291408428171D0     /
      data xigrid( 291 ) /   8030.8572213917178D0     /
      data xigrid( 292 ) /   8483.4289824409370D0     /
      data xigrid( 293 ) /   8961.5050194662763D0     /
      data xigrid( 294 ) /   9466.5226030821414D0     /
      data xigrid( 295 ) /   10000.000000000258D0     /
      data xigrid( 296 ) /   10563.541037492145D0     /
      data xigrid( 297 ) /   11158.839925077775D0     /
      data xigrid( 298 ) /   11787.686347936180D0     /
      data xigrid( 299 ) /   12451.970847350654D0     /
      data xigrid( 300 ) /   13153.690504364109D0     /
      data xigrid( 301 ) /   13894.954943731744D0     /
      data xigrid( 302 ) /   14677.992676221085D0     /
      data xigrid( 303 ) /   15505.157798326660D0     /
      data xigrid( 304 ) /   16378.937069541080D0     /
      data xigrid( 305 ) /   17301.957388459407D0     /
      data xigrid( 306 ) /   18276.993690192667D0     /
      data xigrid( 307 ) /   19306.977288833026D0     /
      data xigrid( 308 ) /   20395.004690051126D0     /
      data xigrid( 309 ) /   21544.346900319430D0     /
      data xigrid( 310 ) /   22758.459260748510D0     /
      data xigrid( 311 ) /   24040.991835100383D0     /
      data xigrid( 312 ) /   25395.800383208993D0     /
      data xigrid( 313 ) /   26826.957952798002D0     /
      data xigrid( 314 ) /   28338.767124545066D0     /
      data xigrid( 315 ) /   29935.772947205736D0     /
      data xigrid( 316 ) /   31622.776601684680D0     /
      data xigrid( 317 ) /   33404.849835133391D0     /
      data xigrid( 318 ) /   35287.350208468517D0     /
      data xigrid( 319 ) /   37275.937203150454D0     /
      data xigrid( 320 ) /   39376.589235644984D0     /
      data xigrid( 321 ) /   41595.621630719652D0     /
      data xigrid( 322 ) /   43939.705607609161D0     /
      data xigrid( 323 ) /   46415.888336129115D0     /
      data xigrid( 324 ) /   49031.614123034029D0     /
      data xigrid( 325 ) /   51794.746792313606D0     /
      data xigrid( 326 ) /   54713.593326710528D0     /
      data xigrid( 327 ) /   57796.928841534813D0     /
      data xigrid( 328 ) /   61054.022965855060D0     /
      data xigrid( 329 ) /   64494.667710378118D0     /
      data xigrid( 330 ) /   68129.206905798128D0     /
      data xigrid( 331 ) /   71968.567300117327D0     /
      data xigrid( 332 ) /   76024.291408428500D0     /
      data xigrid( 333 ) /   80308.572213917520D0     /
      data xigrid( 334 ) /   84834.289824409730D0     /
      data xigrid( 335 ) /   89615.050194663141D0     /
      data xigrid( 336 ) /   94665.226030821810D0     /
      data xigrid( 337 ) /   100000.00000000300D0     /