bspline/s_bspline_functions.f90
| Line | Branch | Exec | Source |
|---|---|---|---|
| 1 | submodule(m_bspline_functions) s_bspline_functions | ||
| 2 | implicit none | ||
| 3 | contains | ||
| 4 | |||
| 5 | 4156151286 | pure module function bspline_eval(x, j, j_minus_i, order, scaled) result(ans) | |
| 6 | !$acc routine seq | ||
| 7 | real(wp), intent(in) :: x | ||
| 8 | integer, intent(in) :: j, j_minus_i, order | ||
| 9 | logical, intent(in) :: scaled | ||
| 10 | real(wp) :: ans | ||
| 11 | |||
| 12 | 4156151286 | select case (order) | |
| 13 | case (0) | ||
| 14 | 98544361 | ans = bspline_eval_0(x, j, j_minus_i, scaled) | |
| 15 | case (1) | ||
| 16 | 98544361 | ans = bspline_eval_1(x, j, j_minus_i, scaled) | |
| 17 | case (2) | ||
| 18 | 612797489 | ans = bspline_eval_2(x, j, j_minus_i, scaled) | |
| 19 | case (3) | ||
| 20 | 1986297312 | ans = bspline_eval_3(x, j, j_minus_i, scaled) | |
| 21 | case (4) | ||
| 22 | 993717501 | ans = bspline_eval_4(x, j, j_minus_i, scaled) | |
| 23 | case (5) | ||
| 24 | 299975055 | ans = bspline_eval_5(x, j, j_minus_i, scaled) | |
| 25 | case (6) | ||
| 26 | 83797531 | ans = bspline_eval_6(x, j, j_minus_i, scaled) | |
| 27 | case (7) | ||
| 28 | 32842914 | ans = bspline_eval_7(x, j, j_minus_i, scaled) | |
| 29 | case (8) | ||
| 30 | 24964290 | ans = bspline_eval_8(x, j, j_minus_i, scaled) | |
| 31 | case default | ||
| 32 |
9/10✓ Branch 2 → 3 taken 23214833 times.
✓ Branch 2 → 8 taken 98544361 times.
✓ Branch 2 → 9 taken 612797489 times.
✓ Branch 2 → 10 taken 1986297312 times.
✓ Branch 2 → 11 taken 993717501 times.
✓ Branch 2 → 12 taken 299975055 times.
✓ Branch 2 → 13 taken 83797531 times.
✓ Branch 2 → 14 taken 32842914 times.
✓ Branch 2 → 15 taken 24964290 times.
✗ Branch 2 → 16 not taken.
|
4156151286 | ans = 0.0_wp |
| 33 | ! error stop 'bspline_eval: order not supported' | ||
| 34 | end select | ||
| 35 | 4156151286 | end function | |
| 36 | |||
| 37 | 981954103 | pure module function bspline_eval_derivative(x, j, j_minus_i, order, scaled) result(ans) | |
| 38 | !$acc routine seq | ||
| 39 | real(wp), intent(in) :: x | ||
| 40 | integer, intent(in) :: j, j_minus_i, order | ||
| 41 | logical, intent(in) :: scaled | ||
| 42 | real(wp) :: ans | ||
| 43 | |||
| 44 | 981954103 | select case (order) | |
| 45 | case (0) | ||
| 46 | 23355804 | ans = bspline_eval_derivative_0(x, j, j_minus_i, scaled) | |
| 47 | case (1) | ||
| 48 | 23355804 | ans = bspline_eval_derivative_1(x, j, j_minus_i, scaled) | |
| 49 | case (2) | ||
| 50 | 169884930 | ans = bspline_eval_derivative_2(x, j, j_minus_i, scaled) | |
| 51 | case (3) | ||
| 52 | 788329848 | ans = bspline_eval_derivative_3(x, j, j_minus_i, scaled) | |
| 53 | case (4) | ||
| 54 | 134500 | ans = bspline_eval_derivative_4(x, j, j_minus_i, scaled) | |
| 55 | case (5) | ||
| 56 | 51312 | ans = bspline_eval_derivative_5(x, j, j_minus_i, scaled) | |
| 57 | case (6) | ||
| 58 | 57596 | ans = bspline_eval_derivative_6(x, j, j_minus_i, scaled) | |
| 59 | case (7) | ||
| 60 | 63344 | ans = bspline_eval_derivative_7(x, j, j_minus_i, scaled) | |
| 61 | case (8) | ||
| 62 | 68769 | ans = bspline_eval_derivative_8(x, j, j_minus_i, scaled) | |
| 63 | case default | ||
| 64 |
9/10✓ Branch 2 → 3 taken 8000 times.
✓ Branch 2 → 5 taken 23355804 times.
✓ Branch 2 → 6 taken 169884930 times.
✓ Branch 2 → 7 taken 788329848 times.
✓ Branch 2 → 8 taken 134500 times.
✓ Branch 2 → 9 taken 51312 times.
✓ Branch 2 → 10 taken 57596 times.
✓ Branch 2 → 11 taken 63344 times.
✓ Branch 2 → 12 taken 68769 times.
✗ Branch 2 → 13 not taken.
|
981954103 | ans = 0.0_wp |
| 65 | ! error stop 'bspline_eval_derivative: order not supported' | ||
| 66 | end select | ||
| 67 | 981954103 | end function | |
| 68 | |||
| 69 | ✗ | pure function bspline_eval_0(x, j, j_minus_i, scaled) result(ans) | |
| 70 | !$acc routine seq | ||
| 71 | |||
| 72 | real(wp), intent(in) :: x | ||
| 73 | integer, intent(in) :: j, j_minus_i | ||
| 74 | logical, intent(in) :: scaled | ||
| 75 | real(wp) :: ans | ||
| 76 | |||
| 77 | ans = 0._wp | ||
| 78 | |||
| 79 | 46429666 | select case (j) | |
| 80 | case (0) | ||
| 81 |
1/4✗ Branch 2 → 3 not taken.
✗ Branch 2 → 4 not taken.
✗ Branch 3 → 4 not taken.
✓ Branch 3 → 5 taken 23214833 times.
|
23214833 | select case (j_minus_i) |
| 82 | case (0) | ||
| 83 |
1/4✗ Branch 4 → 3 not taken.
✗ Branch 4 → 5 not taken.
✗ Branch 5 → 4 not taken.
✓ Branch 5 → 6 taken 23214833 times.
|
23214833 | ans = 1_wp |
| 84 | end select | ||
| 85 | end select | ||
| 86 | |||
| 87 |
2/4✗ Branch 5 → 6 not taken.
✗ Branch 5 → 7 not taken.
✓ Branch 6 → 7 taken 5034283 times.
✓ Branch 6 → 16 taken 18180550 times.
|
23214833 | if (scaled) then |
| 88 | 5034283 | ans = 1 * ans / (1 + j) | |
| 89 | end if | ||
| 90 | |||
| 91 | ✗ | end function | |
| 92 | |||
| 93 | ✗ | pure function bspline_eval_derivative_0(x, j, j_minus_i, scaled) result(ans) | |
| 94 | !$acc routine seq | ||
| 95 | |||
| 96 | real(wp), intent(in) :: x | ||
| 97 | integer, intent(in) :: j, j_minus_i | ||
| 98 | logical, intent(in) :: scaled | ||
| 99 | real(wp) :: ans | ||
| 100 | |||
| 101 | ans = 0._wp | ||
| 102 | |||
| 103 | 8000 | select case (j) | |
| 104 | case (0) | ||
| 105 | select case (j_minus_i) | ||
| 106 | case (0) | ||
| 107 | ans = 0._wp | ||
| 108 | end select | ||
| 109 | end select | ||
| 110 | |||
| 111 |
1/4✗ Branch 2 → 3 not taken.
✗ Branch 2 → 4 not taken.
✗ Branch 3 → 4 not taken.
✓ Branch 3 → 13 taken 8000 times.
|
8000 | if (scaled) then |
| 112 | ✗ | ans = 1 * ans / (1 + j) | |
| 113 | end if | ||
| 114 | |||
| 115 | ✗ | end function | |
| 116 | |||
| 117 | 98544361 | pure function bspline_eval_1(x, j, j_minus_i, scaled) result(ans) | |
| 118 | !$acc routine seq | ||
| 119 | |||
| 120 | real(wp), intent(in) :: x | ||
| 121 | integer, intent(in) :: j, j_minus_i | ||
| 122 | logical, intent(in) :: scaled | ||
| 123 | real(wp) :: ans | ||
| 124 | |||
| 125 | ans = 0._wp | ||
| 126 | |||
| 127 | 100029675 | select case (j) | |
| 128 | case (0) | ||
| 129 | 100025108 | select case (j_minus_i) | |
| 130 | case (0) | ||
| 131 | ans = -1_wp | ||
| 132 |
2/2✓ Branch 3 → 4 taken 1480747 times.
✓ Branch 3 → 8 taken 4567 times.
|
1485314 | ans = 1_wp + ans * x |
| 133 | end select | ||
| 134 | case (1) | ||
| 135 |
2/3✓ Branch 2 → 3 taken 1485314 times.
✓ Branch 2 → 5 taken 97059047 times.
✗ Branch 2 → 8 not taken.
|
98544361 | select case (j_minus_i) |
| 136 | case (1) | ||
| 137 | ans = 1_wp | ||
| 138 | 48529055 | ans = ans * x | |
| 139 | case (0) | ||
| 140 | ans = -1_wp | ||
| 141 |
2/3✓ Branch 5 → 6 taken 48529055 times.
✓ Branch 5 → 7 taken 48529992 times.
✗ Branch 5 → 8 not taken.
|
97059047 | ans = 1_wp + ans * x |
| 142 | end select | ||
| 143 | end select | ||
| 144 | |||
| 145 |
2/2✓ Branch 8 → 9 taken 45776884 times.
✓ Branch 8 → 10 taken 52767477 times.
|
98544361 | if (scaled) then |
| 146 | 45776884 | ans = 2 * ans / (1 + j) | |
| 147 | end if | ||
| 148 | |||
| 149 | 98544361 | end function | |
| 150 | |||
| 151 | 23355804 | pure function bspline_eval_derivative_1(x, j, j_minus_i, scaled) result(ans) | |
| 152 | !$acc routine seq | ||
| 153 | |||
| 154 | real(wp), intent(in) :: x | ||
| 155 | integer, intent(in) :: j, j_minus_i | ||
| 156 | logical, intent(in) :: scaled | ||
| 157 | real(wp) :: ans | ||
| 158 | |||
| 159 | ans = 0._wp | ||
| 160 | |||
| 161 | 23356414 | select case (j) | |
| 162 | case (0) | ||
| 163 | 23355804 | select case (j_minus_i) | |
| 164 | case (0) | ||
| 165 |
1/2✓ Branch 3 → 4 taken 610 times.
✗ Branch 3 → 6 not taken.
|
610 | ans = -1_wp |
| 166 | end select | ||
| 167 | case (1) | ||
| 168 |
2/3✓ Branch 2 → 3 taken 610 times.
✓ Branch 2 → 5 taken 23355194 times.
✗ Branch 2 → 6 not taken.
|
23355804 | select case (j_minus_i) |
| 169 | case (1) | ||
| 170 | ans = 1_wp | ||
| 171 | case (0) | ||
| 172 |
2/3✓ Branch 5 → 4 taken 11677598 times.
✗ Branch 5 → 6 not taken.
✓ Branch 5 → 7 taken 11677596 times.
|
23355194 | ans = -1_wp |
| 173 | end select | ||
| 174 | end select | ||
| 175 | |||
| 176 |
1/2✗ Branch 7 → 8 not taken.
✓ Branch 7 → 9 taken 23355804 times.
|
23355804 | if (scaled) then |
| 177 | ✗ | ans = 2 * ans / (1 + j) | |
| 178 | end if | ||
| 179 | |||
| 180 | 23355804 | end function | |
| 181 | |||
| 182 | 612797489 | pure function bspline_eval_2(x, j, j_minus_i, scaled) result(ans) | |
| 183 | !$acc routine seq | ||
| 184 | |||
| 185 | real(wp), intent(in) :: x | ||
| 186 | integer, intent(in) :: j, j_minus_i | ||
| 187 | logical, intent(in) :: scaled | ||
| 188 | real(wp) :: ans | ||
| 189 | |||
| 190 | ans = 0._wp | ||
| 191 | |||
| 192 | 632215848 | select case (j) | |
| 193 | case (0) | ||
| 194 | 77739327 | select case (j_minus_i) | |
| 195 | case (0) | ||
| 196 | ans = 1_wp | ||
| 197 | 19396513 | ans = -2_wp + ans * x | |
| 198 |
2/2✓ Branch 3 → 4 taken 19396513 times.
✓ Branch 3 → 12 taken 21846 times.
|
19418359 | ans = 1_wp + ans * x |
| 199 | end select | ||
| 200 | case (1) | ||
| 201 | 612827143 | select case (j_minus_i) | |
| 202 | case (1) | ||
| 203 | ans = -1.5_wp | ||
| 204 | 19448013 | ans = 2_wp + ans * x | |
| 205 | 19448013 | ans = ans * x | |
| 206 | case (0) | ||
| 207 | ans = 0.5_wp | ||
| 208 | 19465519 | ans = -1_wp + ans * x | |
| 209 |
3/3✓ Branch 5 → 6 taken 19448013 times.
✓ Branch 5 → 7 taken 19465519 times.
✓ Branch 5 → 12 taken 10923 times.
|
38924455 | ans = 0.5_wp + ans * x |
| 210 | end select | ||
| 211 | case (2) | ||
| 212 |
3/4✓ Branch 2 → 3 taken 19418359 times.
✓ Branch 2 → 5 taken 38924455 times.
✓ Branch 2 → 8 taken 554454675 times.
✗ Branch 2 → 12 not taken.
|
612797489 | select case (j_minus_i) |
| 213 | case (2) | ||
| 214 | ans = 0.5_wp | ||
| 215 | 184813045 | ans = ans * x | |
| 216 | 184813045 | ans = ans * x | |
| 217 | case (1) | ||
| 218 | ans = -1_wp | ||
| 219 | 184824063 | ans = 1_wp + ans * x | |
| 220 | 184824063 | ans = 0.5_wp + ans * x | |
| 221 | case (0) | ||
| 222 | ans = 0.5_wp | ||
| 223 | 184817567 | ans = -1_wp + ans * x | |
| 224 |
3/4✓ Branch 8 → 9 taken 184813045 times.
✓ Branch 8 → 10 taken 184824063 times.
✓ Branch 8 → 11 taken 184817567 times.
✗ Branch 8 → 12 not taken.
|
554454675 | ans = 0.5_wp + ans * x |
| 225 | end select | ||
| 226 | end select | ||
| 227 | |||
| 228 |
2/2✓ Branch 12 → 13 taken 297861336 times.
✓ Branch 12 → 14 taken 314936153 times.
|
612797489 | if (scaled) then |
| 229 | 297861336 | ans = 3 * ans / (1 + j) | |
| 230 | end if | ||
| 231 | |||
| 232 | 612797489 | end function | |
| 233 | |||
| 234 | 169884930 | pure function bspline_eval_derivative_2(x, j, j_minus_i, scaled) result(ans) | |
| 235 | !$acc routine seq | ||
| 236 | |||
| 237 | real(wp), intent(in) :: x | ||
| 238 | integer, intent(in) :: j, j_minus_i | ||
| 239 | logical, intent(in) :: scaled | ||
| 240 | real(wp) :: ans | ||
| 241 | |||
| 242 | ans = 0._wp | ||
| 243 | |||
| 244 | 169885408 | select case (j) | |
| 245 | case (0) | ||
| 246 | 1949 | select case (j_minus_i) | |
| 247 | case (0) | ||
| 248 | ans = 2_wp | ||
| 249 |
1/2✓ Branch 3 → 4 taken 478 times.
✗ Branch 3 → 12 not taken.
|
478 | ans = -2_wp + ans * x |
| 250 | end select | ||
| 251 | case (1) | ||
| 252 | 169884930 | select case (j_minus_i) | |
| 253 | case (1) | ||
| 254 | ans = -3_wp | ||
| 255 | 478 | ans = 2_wp + ans * x | |
| 256 | case (0) | ||
| 257 | ans = 1_wp | ||
| 258 |
2/3✓ Branch 5 → 6 taken 478 times.
✓ Branch 5 → 7 taken 515 times.
✗ Branch 5 → 12 not taken.
|
993 | ans = -1_wp + ans * x |
| 259 | end select | ||
| 260 | case (2) | ||
| 261 |
3/4✓ Branch 2 → 3 taken 478 times.
✓ Branch 2 → 5 taken 993 times.
✓ Branch 2 → 8 taken 169883459 times.
✗ Branch 2 → 12 not taken.
|
169884930 | select case (j_minus_i) |
| 262 | case (2) | ||
| 263 | ans = 1_wp | ||
| 264 | 56627815 | ans = ans * x | |
| 265 | case (1) | ||
| 266 | ans = -2_wp | ||
| 267 | 56627832 | ans = 1_wp + ans * x | |
| 268 | case (0) | ||
| 269 | ans = 1_wp | ||
| 270 |
3/4✓ Branch 8 → 9 taken 56627815 times.
✓ Branch 8 → 10 taken 56627832 times.
✓ Branch 8 → 11 taken 56627812 times.
✗ Branch 8 → 12 not taken.
|
169883459 | ans = -1_wp + ans * x |
| 271 | end select | ||
| 272 | end select | ||
| 273 | |||
| 274 |
1/2✗ Branch 12 → 13 not taken.
✓ Branch 12 → 14 taken 169884930 times.
|
169884930 | if (scaled) then |
| 275 | ✗ | ans = 3 * ans / (1 + j) | |
| 276 | end if | ||
| 277 | |||
| 278 | 169884930 | end function | |
| 279 | |||
| 280 | 1986297312 | pure function bspline_eval_3(x, j, j_minus_i, scaled) result(ans) | |
| 281 | !$acc routine seq | ||
| 282 | |||
| 283 | real(wp), intent(in) :: x | ||
| 284 | integer, intent(in) :: j, j_minus_i | ||
| 285 | logical, intent(in) :: scaled | ||
| 286 | real(wp) :: ans | ||
| 287 | |||
| 288 | ans = 0._wp | ||
| 289 | |||
| 290 | 2010578392 | select case (j) | |
| 291 | case (0) | ||
| 292 | 97469554 | select case (j_minus_i) | |
| 293 | case (0) | ||
| 294 | ans = -1_wp | ||
| 295 | 24224938 | ans = 3_wp + ans * x | |
| 296 | 24224938 | ans = -3_wp + ans * x | |
| 297 |
2/2✓ Branch 3 → 4 taken 24224938 times.
✓ Branch 3 → 17 taken 56142 times.
|
24281080 | ans = 1_wp + ans * x |
| 298 | end select | ||
| 299 | case (1) | ||
| 300 | 146834314 | select case (j_minus_i) | |
| 301 | case (1) | ||
| 302 | ans = 1.75_wp | ||
| 303 | 24435808 | ans = -4.5_wp + ans * x | |
| 304 | 24435808 | ans = 3_wp + ans * x | |
| 305 | 24435808 | ans = ans * x | |
| 306 | case (0) | ||
| 307 | ans = -0.25_wp | ||
| 308 | 24490300 | ans = 0.75_wp + ans * x | |
| 309 | 24490300 | ans = -0.75_wp + ans * x | |
| 310 |
3/3✓ Branch 5 → 6 taken 24435808 times.
✓ Branch 5 → 7 taken 24490300 times.
✓ Branch 5 → 17 taken 37428 times.
|
48963536 | ans = 0.25_wp + ans * x |
| 311 | end select | ||
| 312 | case (2) | ||
| 313 | 1937488504 | select case (j_minus_i) | |
| 314 | case (2) | ||
| 315 | ans = -0.91666666666666663_wp | ||
| 316 | 24435808 | ans = 1.5_wp + ans * x | |
| 317 | 24435808 | ans = ans * x | |
| 318 | 24435808 | ans = ans * x | |
| 319 | case (1) | ||
| 320 | ans = 0.58333333333333337_wp | ||
| 321 | 24490300 | ans = -1.25_wp + ans * x | |
| 322 | 24490300 | ans = 0.25_wp + ans * x | |
| 323 | 24490300 | ans = 0.58333333333333337_wp + ans * x | |
| 324 | case (0) | ||
| 325 | ans = -0.166666666666666657_wp | ||
| 326 | 24490148 | ans = 0.5_wp + ans * x | |
| 327 | 24490148 | ans = -0.5_wp + ans * x | |
| 328 |
4/4✓ Branch 8 → 9 taken 24435808 times.
✓ Branch 8 → 10 taken 24490300 times.
✓ Branch 8 → 11 taken 24490148 times.
✓ Branch 8 → 17 taken 18714 times.
|
73434970 | ans = 0.166666666666666657_wp + ans * x |
| 329 | end select | ||
| 330 | case (3) | ||
| 331 |
4/5✓ Branch 2 → 3 taken 24281080 times.
✓ Branch 2 → 5 taken 48963536 times.
✓ Branch 2 → 8 taken 73434970 times.
✓ Branch 2 → 12 taken 1839617726 times.
✗ Branch 2 → 17 not taken.
|
1986297312 | select case (j_minus_i) |
| 332 | case (3) | ||
| 333 | ans = 0.166666666666666657_wp | ||
| 334 | 459860679 | ans = ans * x | |
| 335 | 459860679 | ans = ans * x | |
| 336 | 459860679 | ans = ans * x | |
| 337 | case (2) | ||
| 338 | ans = -0.5_wp | ||
| 339 | 459918228 | ans = 0.5_wp + ans * x | |
| 340 | 459918228 | ans = 0.5_wp + ans * x | |
| 341 | 459918228 | ans = 0.166666666666666657_wp + ans * x | |
| 342 | case (1) | ||
| 343 | ans = 0.5_wp | ||
| 344 | 459917808 | ans = -1_wp + ans * x | |
| 345 | 459917808 | ans = ans * x | |
| 346 | 459917808 | ans = 0.66666666666666663_wp + ans * x | |
| 347 | case (0) | ||
| 348 | ans = -0.166666666666666657_wp | ||
| 349 | 459921011 | ans = 0.5_wp + ans * x | |
| 350 | 459921011 | ans = -0.5_wp + ans * x | |
| 351 |
4/5✓ Branch 12 → 13 taken 459860679 times.
✓ Branch 12 → 14 taken 459918228 times.
✓ Branch 12 → 15 taken 459917808 times.
✓ Branch 12 → 16 taken 459921011 times.
✗ Branch 12 → 17 not taken.
|
1839617726 | ans = 0.166666666666666657_wp + ans * x |
| 352 | end select | ||
| 353 | end select | ||
| 354 | |||
| 355 |
2/2✓ Branch 17 → 18 taken 497481000 times.
✓ Branch 17 → 19 taken 1488816312 times.
|
1986297312 | if (scaled) then |
| 356 | 497481000 | ans = 4 * ans / (1 + j) | |
| 357 | end if | ||
| 358 | |||
| 359 | 1986297312 | end function | |
| 360 | |||
| 361 | 788329848 | pure function bspline_eval_derivative_3(x, j, j_minus_i, scaled) result(ans) | |
| 362 | !$acc routine seq | ||
| 363 | |||
| 364 | real(wp), intent(in) :: x | ||
| 365 | integer, intent(in) :: j, j_minus_i | ||
| 366 | logical, intent(in) :: scaled | ||
| 367 | real(wp) :: ans | ||
| 368 | |||
| 369 | ans = 0._wp | ||
| 370 | |||
| 371 | 788332195 | select case (j) | |
| 372 | case (0) | ||
| 373 | 9257 | select case (j_minus_i) | |
| 374 | case (0) | ||
| 375 | ans = -3_wp | ||
| 376 | 2347 | ans = 6_wp + ans * x | |
| 377 |
1/2✓ Branch 3 → 4 taken 2347 times.
✗ Branch 3 → 17 not taken.
|
2347 | ans = -3_wp + ans * x |
| 378 | end select | ||
| 379 | case (1) | ||
| 380 | 13711 | select case (j_minus_i) | |
| 381 | case (1) | ||
| 382 | ans = 5.25_wp | ||
| 383 | 2347 | ans = -9_wp + ans * x | |
| 384 | 2347 | ans = 3_wp + ans * x | |
| 385 | case (0) | ||
| 386 | ans = -0.75_wp | ||
| 387 | 2216 | ans = 1.5_wp + ans * x | |
| 388 |
2/3✓ Branch 5 → 6 taken 2347 times.
✓ Branch 5 → 7 taken 2216 times.
✗ Branch 5 → 17 not taken.
|
4563 | ans = -0.75_wp + ans * x |
| 389 | end select | ||
| 390 | case (2) | ||
| 391 | 788325285 | select case (j_minus_i) | |
| 392 | case (2) | ||
| 393 | ans = -2.75_wp | ||
| 394 | 2347 | ans = 3_wp + ans * x | |
| 395 | 2347 | ans = ans * x | |
| 396 | case (1) | ||
| 397 | ans = 1.75_wp | ||
| 398 | 2216 | ans = -2.5_wp + ans * x | |
| 399 | 2216 | ans = 0.25_wp + ans * x | |
| 400 | case (0) | ||
| 401 | ans = -0.5_wp | ||
| 402 | 2238 | ans = 1_wp + ans * x | |
| 403 |
3/4✓ Branch 8 → 9 taken 2347 times.
✓ Branch 8 → 10 taken 2216 times.
✓ Branch 8 → 11 taken 2238 times.
✗ Branch 8 → 17 not taken.
|
6801 | ans = -0.5_wp + ans * x |
| 404 | end select | ||
| 405 | case (3) | ||
| 406 |
4/5✓ Branch 2 → 3 taken 2347 times.
✓ Branch 2 → 5 taken 4563 times.
✓ Branch 2 → 8 taken 6801 times.
✓ Branch 2 → 12 taken 788316137 times.
✗ Branch 2 → 17 not taken.
|
788329848 | select case (j_minus_i) |
| 407 | case (3) | ||
| 408 | ans = 0.5_wp | ||
| 409 | 197079072 | ans = ans * x | |
| 410 | 197079072 | ans = ans * x | |
| 411 | case (2) | ||
| 412 | ans = -1.5_wp | ||
| 413 | 197079066 | ans = 1_wp + ans * x | |
| 414 | 197079066 | ans = 0.5_wp + ans * x | |
| 415 | case (1) | ||
| 416 | ans = 1.5_wp | ||
| 417 | 197078948 | ans = -2_wp + ans * x | |
| 418 | 197078948 | ans = ans * x | |
| 419 | case (0) | ||
| 420 | ans = -0.5_wp | ||
| 421 | 197079051 | ans = 1_wp + ans * x | |
| 422 |
4/5✓ Branch 12 → 13 taken 197079072 times.
✓ Branch 12 → 14 taken 197079066 times.
✓ Branch 12 → 15 taken 197078948 times.
✓ Branch 12 → 16 taken 197079051 times.
✗ Branch 12 → 17 not taken.
|
788316137 | ans = -0.5_wp + ans * x |
| 423 | end select | ||
| 424 | end select | ||
| 425 | |||
| 426 |
1/2✗ Branch 17 → 18 not taken.
✓ Branch 17 → 19 taken 788329848 times.
|
788329848 | if (scaled) then |
| 427 | ✗ | ans = 4 * ans / (1 + j) | |
| 428 | end if | ||
| 429 | |||
| 430 | 788329848 | end function | |
| 431 | |||
| 432 | 993717501 | pure function bspline_eval_4(x, j, j_minus_i, scaled) result(ans) | |
| 433 | !$acc routine seq | ||
| 434 | |||
| 435 | real(wp), intent(in) :: x | ||
| 436 | integer, intent(in) :: j, j_minus_i | ||
| 437 | logical, intent(in) :: scaled | ||
| 438 | real(wp) :: ans | ||
| 439 | |||
| 440 | ans = 0._wp | ||
| 441 | |||
| 442 | 1008707216 | select case (j) | |
| 443 | case (0) | ||
| 444 | 61687910 | select case (j_minus_i) | |
| 445 | case (0) | ||
| 446 | ans = 1_wp | ||
| 447 | 14900967 | ans = -4_wp + ans * x | |
| 448 | 14900967 | ans = 6_wp + ans * x | |
| 449 | 14900967 | ans = -4_wp + ans * x | |
| 450 |
2/2✓ Branch 3 → 4 taken 14900967 times.
✓ Branch 3 → 23 taken 88748 times.
|
14989715 | ans = 1_wp + ans * x |
| 451 | end select | ||
| 452 | case (1) | ||
| 453 | 95240838 | select case (j_minus_i) | |
| 454 | case (1) | ||
| 455 | ans = -1.875_wp | ||
| 456 | 15751371 | ans = 7_wp + ans * x | |
| 457 | 15751371 | ans = -9_wp + ans * x | |
| 458 | 15751371 | ans = 4_wp + ans * x | |
| 459 | 15751371 | ans = ans * x | |
| 460 | case (0) | ||
| 461 | ans = 0.125_wp | ||
| 462 | 15979296 | ans = -0.5_wp + ans * x | |
| 463 | 15979296 | ans = 0.75_wp + ans * x | |
| 464 | 15979296 | ans = -0.5_wp + ans * x | |
| 465 |
3/3✓ Branch 5 → 6 taken 15751371 times.
✓ Branch 5 → 7 taken 15979296 times.
✓ Branch 5 → 23 taken 66561 times.
|
31797228 | ans = 0.125_wp + ans * x |
| 466 | end select | ||
| 467 | case (2) | ||
| 468 | 127093050 | select case (j_minus_i) | |
| 469 | case (2) | ||
| 470 | ans = 1.18055555555555558_wp | ||
| 471 | 15751371 | ans = -3.66666666666666652_wp + ans * x | |
| 472 | 15751371 | ans = 3_wp + ans * x | |
| 473 | 15751371 | ans = ans * x | |
| 474 | 15751371 | ans = ans * x | |
| 475 | case (1) | ||
| 476 | ans = -0.31944444444444442_wp | ||
| 477 | 15979296 | ans = 1.05555555555555558_wp + ans * x | |
| 478 | 15979296 | ans = -0.91666666666666663_wp + ans * x | |
| 479 | 15979296 | ans = -0.27777777777777779_wp + ans * x | |
| 480 | 15979296 | ans = 0.51388888888888884_wp + ans * x | |
| 481 | case (0) | ||
| 482 | ans = 0.0555555555555555525_wp | ||
| 483 | 15917198 | ans = -0.22222222222222221_wp + ans * x | |
| 484 | 15917198 | ans = 0.333333333333333315_wp + ans * x | |
| 485 | 15917198 | ans = -0.22222222222222221_wp + ans * x | |
| 486 |
4/4✓ Branch 8 → 9 taken 15751371 times.
✓ Branch 8 → 10 taken 15979296 times.
✓ Branch 8 → 11 taken 15917198 times.
✓ Branch 8 → 23 taken 44374 times.
|
47692239 | ans = 0.0555555555555555525_wp + ans * x |
| 487 | end select | ||
| 488 | case (3) | ||
| 489 | 914989690 | select case (j_minus_i) | |
| 490 | case (3) | ||
| 491 | ans = -0.34722222222222221_wp | ||
| 492 | 15751371 | ans = 0.66666666666666663_wp + ans * x | |
| 493 | 15751371 | ans = ans * x | |
| 494 | 15751371 | ans = ans * x | |
| 495 | 15751371 | ans = ans * x | |
| 496 | case (2) | ||
| 497 | ans = 0.31944444444444442_wp | ||
| 498 | 15979296 | ans = -0.72222222222222221_wp + ans * x | |
| 499 | 15979296 | ans = -0.0833333333333333287_wp + ans * x | |
| 500 | 15979296 | ans = 0.61111111111111116_wp + ans * x | |
| 501 | 15979296 | ans = 0.31944444444444442_wp + ans * x | |
| 502 | case (1) | ||
| 503 | ans = -0.180555555555555552_wp | ||
| 504 | 15917198 | ans = 0.55555555555555558_wp + ans * x | |
| 505 | 15917198 | ans = -0.333333333333333315_wp + ans * x | |
| 506 | 15917198 | ans = -0.44444444444444442_wp + ans * x | |
| 507 | 15917198 | ans = 0.44444444444444442_wp + ans * x | |
| 508 | case (0) | ||
| 509 | ans = 0.0416666666666666644_wp | ||
| 510 | 15979388 | ans = -0.166666666666666657_wp + ans * x | |
| 511 | 15979388 | ans = 0.25_wp + ans * x | |
| 512 | 15979388 | ans = -0.166666666666666657_wp + ans * x | |
| 513 |
5/5✓ Branch 12 → 13 taken 15751371 times.
✓ Branch 12 → 14 taken 15979296 times.
✓ Branch 12 → 15 taken 15917198 times.
✓ Branch 12 → 16 taken 15979388 times.
✓ Branch 12 → 23 taken 22187 times.
|
63649440 | ans = 0.0416666666666666644_wp + ans * x |
| 514 | end select | ||
| 515 | case (4) | ||
| 516 |
5/6✓ Branch 2 → 3 taken 14989715 times.
✓ Branch 2 → 5 taken 31797228 times.
✓ Branch 2 → 8 taken 47692239 times.
✓ Branch 2 → 12 taken 63649440 times.
✓ Branch 2 → 17 taken 835588879 times.
✗ Branch 2 → 23 not taken.
|
993717501 | select case (j_minus_i) |
| 517 | case (4) | ||
| 518 | ans = 0.0416666666666666644_wp | ||
| 519 | 166972744 | ans = ans * x | |
| 520 | 166972744 | ans = ans * x | |
| 521 | 166972744 | ans = ans * x | |
| 522 | 166972744 | ans = ans * x | |
| 523 | case (3) | ||
| 524 | ans = -0.166666666666666657_wp | ||
| 525 | 167169598 | ans = 0.166666666666666657_wp + ans * x | |
| 526 | 167169598 | ans = 0.25_wp + ans * x | |
| 527 | 167169598 | ans = 0.166666666666666657_wp + ans * x | |
| 528 | 167169598 | ans = 0.0416666666666666644_wp + ans * x | |
| 529 | case (2) | ||
| 530 | ans = 0.25_wp | ||
| 531 | 167138540 | ans = -0.5_wp + ans * x | |
| 532 | 167138540 | ans = -0.25_wp + ans * x | |
| 533 | 167138540 | ans = 0.5_wp + ans * x | |
| 534 | 167138540 | ans = 0.458333333333333315_wp + ans * x | |
| 535 | case (1) | ||
| 536 | ans = -0.166666666666666657_wp | ||
| 537 | 167169584 | ans = 0.5_wp + ans * x | |
| 538 | 167169584 | ans = -0.25_wp + ans * x | |
| 539 | 167169584 | ans = -0.5_wp + ans * x | |
| 540 | 167169584 | ans = 0.458333333333333315_wp + ans * x | |
| 541 | case (0) | ||
| 542 | ans = 0.0416666666666666644_wp | ||
| 543 | 167138413 | ans = -0.166666666666666657_wp + ans * x | |
| 544 | 167138413 | ans = 0.25_wp + ans * x | |
| 545 | 167138413 | ans = -0.166666666666666657_wp + ans * x | |
| 546 |
5/6✓ Branch 17 → 18 taken 166972744 times.
✓ Branch 17 → 19 taken 167169598 times.
✓ Branch 17 → 20 taken 167138540 times.
✓ Branch 17 → 21 taken 167169584 times.
✓ Branch 17 → 22 taken 167138413 times.
✗ Branch 17 → 23 not taken.
|
835588879 | ans = 0.0416666666666666644_wp + ans * x |
| 547 | end select | ||
| 548 | end select | ||
| 549 | |||
| 550 |
2/2✓ Branch 23 → 24 taken 238839195 times.
✓ Branch 23 → 25 taken 754878306 times.
|
993717501 | if (scaled) then |
| 551 | 238839195 | ans = 5 * ans / (1 + j) | |
| 552 | end if | ||
| 553 | |||
| 554 | 993717501 | end function | |
| 555 | |||
| 556 | 134500 | pure function bspline_eval_derivative_4(x, j, j_minus_i, scaled) result(ans) | |
| 557 | !$acc routine seq | ||
| 558 | |||
| 559 | real(wp), intent(in) :: x | ||
| 560 | integer, intent(in) :: j, j_minus_i | ||
| 561 | logical, intent(in) :: scaled | ||
| 562 | real(wp) :: ans | ||
| 563 | |||
| 564 | ans = 0._wp | ||
| 565 | |||
| 566 | 134828 | select case (j) | |
| 567 | case (0) | ||
| 568 | 1328 | select case (j_minus_i) | |
| 569 | case (0) | ||
| 570 | ans = 4_wp | ||
| 571 | 328 | ans = -12_wp + ans * x | |
| 572 | 328 | ans = 12_wp + ans * x | |
| 573 |
1/2✓ Branch 3 → 4 taken 328 times.
✗ Branch 3 → 23 not taken.
|
328 | ans = -4_wp + ans * x |
| 574 | end select | ||
| 575 | case (1) | ||
| 576 | 2051 | select case (j_minus_i) | |
| 577 | case (1) | ||
| 578 | ans = -7.5_wp | ||
| 579 | 328 | ans = 21_wp + ans * x | |
| 580 | 328 | ans = -18_wp + ans * x | |
| 581 | 328 | ans = 4_wp + ans * x | |
| 582 | case (0) | ||
| 583 | ans = 0.5_wp | ||
| 584 | 344 | ans = -1.5_wp + ans * x | |
| 585 | 344 | ans = 1.5_wp + ans * x | |
| 586 |
2/3✓ Branch 5 → 6 taken 328 times.
✓ Branch 5 → 7 taken 344 times.
✗ Branch 5 → 23 not taken.
|
672 | ans = -0.5_wp + ans * x |
| 587 | end select | ||
| 588 | case (2) | ||
| 589 | 2809 | select case (j_minus_i) | |
| 590 | case (2) | ||
| 591 | ans = 4.72222222222222232_wp | ||
| 592 | 328 | ans = -11_wp + ans * x | |
| 593 | 328 | ans = 6_wp + ans * x | |
| 594 | 328 | ans = ans * x | |
| 595 | case (1) | ||
| 596 | ans = -1.27777777777777768_wp | ||
| 597 | 344 | ans = 3.16666666666666652_wp + ans * x | |
| 598 | 344 | ans = -1.83333333333333326_wp + ans * x | |
| 599 | 344 | ans = -0.27777777777777779_wp + ans * x | |
| 600 | case (0) | ||
| 601 | ans = 0.22222222222222221_wp | ||
| 602 | 379 | ans = -0.66666666666666663_wp + ans * x | |
| 603 | 379 | ans = 0.66666666666666663_wp + ans * x | |
| 604 |
3/4✓ Branch 8 → 9 taken 328 times.
✓ Branch 8 → 10 taken 344 times.
✓ Branch 8 → 11 taken 379 times.
✗ Branch 8 → 23 not taken.
|
1051 | ans = -0.22222222222222221_wp + ans * x |
| 605 | end select | ||
| 606 | case (3) | ||
| 607 | 132777 | select case (j_minus_i) | |
| 608 | case (3) | ||
| 609 | ans = -1.38888888888888884_wp | ||
| 610 | 328 | ans = 2_wp + ans * x | |
| 611 | 328 | ans = ans * x | |
| 612 | 328 | ans = ans * x | |
| 613 | case (2) | ||
| 614 | ans = 1.27777777777777768_wp | ||
| 615 | 344 | ans = -2.16666666666666652_wp + ans * x | |
| 616 | 344 | ans = -0.166666666666666657_wp + ans * x | |
| 617 | 344 | ans = 0.61111111111111116_wp + ans * x | |
| 618 | case (1) | ||
| 619 | ans = -0.72222222222222221_wp | ||
| 620 | 379 | ans = 1.66666666666666674_wp + ans * x | |
| 621 | 379 | ans = -0.66666666666666663_wp + ans * x | |
| 622 | 379 | ans = -0.44444444444444442_wp + ans * x | |
| 623 | case (0) | ||
| 624 | ans = 0.166666666666666657_wp | ||
| 625 | 379 | ans = -0.5_wp + ans * x | |
| 626 | 379 | ans = 0.5_wp + ans * x | |
| 627 |
4/5✓ Branch 12 → 13 taken 328 times.
✓ Branch 12 → 14 taken 344 times.
✓ Branch 12 → 15 taken 379 times.
✓ Branch 12 → 16 taken 379 times.
✗ Branch 12 → 23 not taken.
|
1430 | ans = -0.166666666666666657_wp + ans * x |
| 628 | end select | ||
| 629 | case (4) | ||
| 630 |
5/6✓ Branch 2 → 3 taken 328 times.
✓ Branch 2 → 5 taken 672 times.
✓ Branch 2 → 8 taken 1051 times.
✓ Branch 2 → 12 taken 1430 times.
✓ Branch 2 → 17 taken 131019 times.
✗ Branch 2 → 23 not taken.
|
134500 | select case (j_minus_i) |
| 631 | case (4) | ||
| 632 | ans = 0.166666666666666657_wp | ||
| 633 | 26183 | ans = ans * x | |
| 634 | 26183 | ans = ans * x | |
| 635 | 26183 | ans = ans * x | |
| 636 | case (3) | ||
| 637 | ans = -0.66666666666666663_wp | ||
| 638 | 26211 | ans = 0.5_wp + ans * x | |
| 639 | 26211 | ans = 0.5_wp + ans * x | |
| 640 | 26211 | ans = 0.166666666666666657_wp + ans * x | |
| 641 | case (2) | ||
| 642 | ans = 1_wp | ||
| 643 | 26228 | ans = -1.5_wp + ans * x | |
| 644 | 26228 | ans = -0.5_wp + ans * x | |
| 645 | 26228 | ans = 0.5_wp + ans * x | |
| 646 | case (1) | ||
| 647 | ans = -0.66666666666666663_wp | ||
| 648 | 26210 | ans = 1.5_wp + ans * x | |
| 649 | 26210 | ans = -0.5_wp + ans * x | |
| 650 | 26210 | ans = -0.5_wp + ans * x | |
| 651 | case (0) | ||
| 652 | ans = 0.166666666666666657_wp | ||
| 653 | 26187 | ans = -0.5_wp + ans * x | |
| 654 | 26187 | ans = 0.5_wp + ans * x | |
| 655 |
5/6✓ Branch 17 → 18 taken 26183 times.
✓ Branch 17 → 19 taken 26211 times.
✓ Branch 17 → 20 taken 26228 times.
✓ Branch 17 → 21 taken 26210 times.
✓ Branch 17 → 22 taken 26187 times.
✗ Branch 17 → 23 not taken.
|
131019 | ans = -0.166666666666666657_wp + ans * x |
| 656 | end select | ||
| 657 | end select | ||
| 658 | |||
| 659 |
1/2✗ Branch 23 → 24 not taken.
✓ Branch 23 → 25 taken 134500 times.
|
134500 | if (scaled) then |
| 660 | ✗ | ans = 5 * ans / (1 + j) | |
| 661 | end if | ||
| 662 | |||
| 663 | 134500 | end function | |
| 664 | |||
| 665 | 299975055 | pure function bspline_eval_5(x, j, j_minus_i, scaled) result(ans) | |
| 666 | !$acc routine seq | ||
| 667 | |||
| 668 | real(wp), intent(in) :: x | ||
| 669 | integer, intent(in) :: j, j_minus_i | ||
| 670 | logical, intent(in) :: scaled | ||
| 671 | real(wp) :: ans | ||
| 672 | |||
| 673 | ans = 0._wp | ||
| 674 | |||
| 675 | 305415675 | select case (j) | |
| 676 | case (0) | ||
| 677 | 21701233 | select case (j_minus_i) | |
| 678 | case (0) | ||
| 679 | ans = -1_wp | ||
| 680 | 5348265 | ans = 5_wp + ans * x | |
| 681 | 5348265 | ans = -10_wp + ans * x | |
| 682 | 5348265 | ans = 10_wp + ans * x | |
| 683 | 5348265 | ans = -5_wp + ans * x | |
| 684 |
2/2✓ Branch 3 → 4 taken 5348265 times.
✓ Branch 3 → 30 taken 92355 times.
|
5440620 | ans = 1_wp + ans * x |
| 685 | end select | ||
| 686 | case (1) | ||
| 687 | 32691239 | select case (j_minus_i) | |
| 688 | case (1) | ||
| 689 | ans = 1.9375_wp | ||
| 690 | 5442474 | ans = -9.375_wp + ans * x | |
| 691 | 5442474 | ans = 17.5_wp + ans * x | |
| 692 | 5442474 | ans = -15_wp + ans * x | |
| 693 | 5442474 | ans = 5_wp + ans * x | |
| 694 | 5442474 | ans = ans * x | |
| 695 | case (0) | ||
| 696 | ans = -0.0625_wp | ||
| 697 | 5395990 | ans = 0.3125_wp + ans * x | |
| 698 | 5395990 | ans = -0.625_wp + ans * x | |
| 699 | 5395990 | ans = 0.625_wp + ans * x | |
| 700 | 5395990 | ans = -0.3125_wp + ans * x | |
| 701 |
3/3✓ Branch 5 → 6 taken 5442474 times.
✓ Branch 5 → 7 taken 5395990 times.
✓ Branch 5 → 30 taken 73884 times.
|
10912348 | ans = 0.0625_wp + ans * x |
| 702 | end select | ||
| 703 | case (2) | ||
| 704 | 43539426 | select case (j_minus_i) | |
| 705 | case (2) | ||
| 706 | ans = -1.3310185185185186_wp | ||
| 707 | 5442474 | ans = 5.90277777777777768_wp + ans * x | |
| 708 | 5442474 | ans = -9.16666666666666607_wp + ans * x | |
| 709 | 5442474 | ans = 5_wp + ans * x | |
| 710 | 5442474 | ans = ans * x | |
| 711 | 5442474 | ans = ans * x | |
| 712 | case (1) | ||
| 713 | ans = 0.168981481481481483_wp | ||
| 714 | 5395990 | ans = -0.75231481481481477_wp + ans * x | |
| 715 | 5395990 | ans = 1.1342592592592593_wp + ans * x | |
| 716 | 5395990 | ans = -0.393518518518518545_wp + ans * x | |
| 717 | 5395990 | ans = -0.54398148148148151_wp + ans * x | |
| 718 | 5395990 | ans = 0.405092592592592615_wp + ans * x | |
| 719 | case (0) | ||
| 720 | ans = -0.0185185185185185175_wp | ||
| 721 | 5442540 | ans = 0.0925925925925925875_wp + ans * x | |
| 722 | 5442540 | ans = -0.185185185185185175_wp + ans * x | |
| 723 | 5442540 | ans = 0.185185185185185175_wp + ans * x | |
| 724 | 5442540 | ans = -0.0925925925925925875_wp + ans * x | |
| 725 |
4/4✓ Branch 8 → 9 taken 5442474 times.
✓ Branch 8 → 10 taken 5395990 times.
✓ Branch 8 → 11 taken 5442540 times.
✓ Branch 8 → 30 taken 55413 times.
|
16336417 | ans = 0.0185185185185185175_wp + ans * x |
| 726 | end select | ||
| 727 | case (3) | ||
| 728 | 54341176 | select case (j_minus_i) | |
| 729 | case (3) | ||
| 730 | ans = 0.48032407407407407_wp | ||
| 731 | 5442474 | ans = -1.73611111111111116_wp + ans * x | |
| 732 | 5442474 | ans = 1.66666666666666674_wp + ans * x | |
| 733 | 5442474 | ans = ans * x | |
| 734 | 5442474 | ans = ans * x | |
| 735 | 5442474 | ans = ans * x | |
| 736 | case (2) | ||
| 737 | ans = -0.186342592592592587_wp | ||
| 738 | 5395990 | ans = 0.6655092592592593_wp + ans * x | |
| 739 | 5395990 | ans = -0.474537037037037035_wp + ans * x | |
| 740 | 5395990 | ans = -0.61342592592592593_wp + ans * x | |
| 741 | 5395990 | ans = 0.45717592592592593_wp + ans * x | |
| 742 | 5395990 | ans = 0.41087962962962965_wp + ans * x | |
| 743 | case (1) | ||
| 744 | ans = 0.0636574074074074125_wp | ||
| 745 | 5442540 | ans = -0.26620370370370372_wp + ans * x | |
| 746 | 5442540 | ans = 0.32407407407407407_wp + ans * x | |
| 747 | 5442540 | ans = 0.0925925925925925875_wp + ans * x | |
| 748 | 5442540 | ans = -0.462962962962962965_wp + ans * x | |
| 749 | 5442540 | ans = 0.259259259259259245_wp + ans * x | |
| 750 | case (0) | ||
| 751 | ans = -0.0104166666666666661_wp | ||
| 752 | 5442589 | ans = 0.0520833333333333356_wp + ans * x | |
| 753 | 5442589 | ans = -0.104166666666666671_wp + ans * x | |
| 754 | 5442589 | ans = 0.104166666666666671_wp + ans * x | |
| 755 | 5442589 | ans = -0.0520833333333333356_wp + ans * x | |
| 756 |
5/5✓ Branch 12 → 13 taken 5442474 times.
✓ Branch 12 → 14 taken 5395990 times.
✓ Branch 12 → 15 taken 5442540 times.
✓ Branch 12 → 16 taken 5442589 times.
✓ Branch 12 → 30 taken 36942 times.
|
21760535 | ans = 0.0104166666666666661_wp + ans * x |
| 757 | end select | ||
| 758 | case (4) | ||
| 759 | 250967609 | select case (j_minus_i) | |
| 760 | case (4) | ||
| 761 | ans = -0.095138888888888884_wp | ||
| 762 | 5442474 | ans = 0.208333333333333343_wp + ans * x | |
| 763 | 5442474 | ans = ans * x | |
| 764 | 5442474 | ans = ans * x | |
| 765 | 5442474 | ans = ans * x | |
| 766 | 5442474 | ans = ans * x | |
| 767 | case (3) | ||
| 768 | ans = 0.113194444444444445_wp | ||
| 769 | 5395990 | ans = -0.267361111111111105_wp + ans * x | |
| 770 | 5395990 | ans = -0.118055555555555552_wp + ans * x | |
| 771 | 5395990 | ans = 0.298611111111111105_wp + ans * x | |
| 772 | 5395990 | ans = 0.357638888888888895_wp + ans * x | |
| 773 | 5395990 | ans = 0.113194444444444445_wp + ans * x | |
| 774 | case (2) | ||
| 775 | ans = -0.095138888888888884_wp | ||
| 776 | 5442540 | ans = 0.298611111111111105_wp + ans * x | |
| 777 | 5442540 | ans = -0.0555555555555555525_wp + ans * x | |
| 778 | 5442540 | ans = -0.52777777777777779_wp + ans * x | |
| 779 | 5442540 | ans = 0.0972222222222222238_wp + ans * x | |
| 780 | 5442540 | ans = 0.497222222222222232_wp + ans * x | |
| 781 | case (1) | ||
| 782 | ans = 0.0437499999999999972_wp | ||
| 783 | 5442589 | ans = -0.177083333333333343_wp + ans * x | |
| 784 | 5442589 | ans = 0.1875_wp + ans * x | |
| 785 | 5442589 | ans = 0.145833333333333343_wp + ans * x | |
| 786 | 5442589 | ans = -0.40625_wp + ans * x | |
| 787 | 5442589 | ans = 0.21458333333333332_wp + ans * x | |
| 788 | case (0) | ||
| 789 | ans = -0.00833333333333333322_wp | ||
| 790 | 5396103 | ans = 0.0416666666666666644_wp + ans * x | |
| 791 | 5396103 | ans = -0.0833333333333333287_wp + ans * x | |
| 792 | 5396103 | ans = 0.0833333333333333287_wp + ans * x | |
| 793 | 5396103 | ans = -0.0416666666666666644_wp + ans * x | |
| 794 |
6/6✓ Branch 17 → 18 taken 5442474 times.
✓ Branch 17 → 19 taken 5395990 times.
✓ Branch 17 → 20 taken 5442540 times.
✓ Branch 17 → 21 taken 5442589 times.
✓ Branch 17 → 22 taken 5396103 times.
✓ Branch 17 → 30 taken 18471 times.
|
27138167 | ans = 0.00833333333333333322_wp + ans * x |
| 795 | end select | ||
| 796 | case (5) | ||
| 797 |
6/7✓ Branch 2 → 3 taken 5440620 times.
✓ Branch 2 → 5 taken 10912348 times.
✓ Branch 2 → 8 taken 16336417 times.
✓ Branch 2 → 12 taken 21760535 times.
✓ Branch 2 → 17 taken 27138167 times.
✓ Branch 2 → 23 taken 218386968 times.
✗ Branch 2 → 30 not taken.
|
299975055 | select case (j_minus_i) |
| 798 | case (5) | ||
| 799 | ans = 0.00833333333333333322_wp | ||
| 800 | 36428767 | ans = ans * x | |
| 801 | 36428767 | ans = ans * x | |
| 802 | 36428767 | ans = ans * x | |
| 803 | 36428767 | ans = ans * x | |
| 804 | 36428767 | ans = ans * x | |
| 805 | case (4) | ||
| 806 | ans = -0.0416666666666666644_wp | ||
| 807 | 36382315 | ans = 0.0416666666666666644_wp + ans * x | |
| 808 | 36382315 | ans = 0.0833333333333333287_wp + ans * x | |
| 809 | 36382315 | ans = 0.0833333333333333287_wp + ans * x | |
| 810 | 36382315 | ans = 0.0416666666666666644_wp + ans * x | |
| 811 | 36382315 | ans = 0.00833333333333333322_wp + ans * x | |
| 812 | case (3) | ||
| 813 | ans = 0.0833333333333333287_wp | ||
| 814 | 36382383 | ans = -0.166666666666666657_wp + ans * x | |
| 815 | 36382383 | ans = -0.166666666666666657_wp + ans * x | |
| 816 | 36382383 | ans = 0.166666666666666657_wp + ans * x | |
| 817 | 36382383 | ans = 0.416666666666666685_wp + ans * x | |
| 818 | 36382383 | ans = 0.216666666666666674_wp + ans * x | |
| 819 | case (2) | ||
| 820 | ans = -0.0833333333333333287_wp | ||
| 821 | 36428880 | ans = 0.25_wp + ans * x | |
| 822 | 36428880 | ans = ans * x | |
| 823 | 36428880 | ans = -0.5_wp + ans * x | |
| 824 | 36428880 | ans = ans * x | |
| 825 | 36428880 | ans = 0.550000000000000044_wp + ans * x | |
| 826 | case (1) | ||
| 827 | ans = 0.0416666666666666644_wp | ||
| 828 | 36382349 | ans = -0.166666666666666657_wp + ans * x | |
| 829 | 36382349 | ans = 0.166666666666666657_wp + ans * x | |
| 830 | 36382349 | ans = 0.166666666666666657_wp + ans * x | |
| 831 | 36382349 | ans = -0.416666666666666685_wp + ans * x | |
| 832 | 36382349 | ans = 0.216666666666666674_wp + ans * x | |
| 833 | case (0) | ||
| 834 | ans = -0.00833333333333333322_wp | ||
| 835 | 36382274 | ans = 0.0416666666666666644_wp + ans * x | |
| 836 | 36382274 | ans = -0.0833333333333333287_wp + ans * x | |
| 837 | 36382274 | ans = 0.0833333333333333287_wp + ans * x | |
| 838 | 36382274 | ans = -0.0416666666666666644_wp + ans * x | |
| 839 |
6/7✓ Branch 23 → 24 taken 36428767 times.
✓ Branch 23 → 25 taken 36382315 times.
✓ Branch 23 → 26 taken 36382383 times.
✓ Branch 23 → 27 taken 36428880 times.
✓ Branch 23 → 28 taken 36382349 times.
✓ Branch 23 → 29 taken 36382274 times.
✗ Branch 23 → 30 not taken.
|
218386968 | ans = 0.00833333333333333322_wp + ans * x |
| 840 | end select | ||
| 841 | end select | ||
| 842 | |||
| 843 |
2/2✓ Branch 30 → 31 taken 4772040 times.
✓ Branch 30 → 32 taken 295203015 times.
|
299975055 | if (scaled) then |
| 844 | 4772040 | ans = 6 * ans / (1 + j) | |
| 845 | end if | ||
| 846 | |||
| 847 | 299975055 | end function | |
| 848 | |||
| 849 | 51312 | pure function bspline_eval_derivative_5(x, j, j_minus_i, scaled) result(ans) | |
| 850 | !$acc routine seq | ||
| 851 | |||
| 852 | real(wp), intent(in) :: x | ||
| 853 | integer, intent(in) :: j, j_minus_i | ||
| 854 | logical, intent(in) :: scaled | ||
| 855 | real(wp) :: ans | ||
| 856 | |||
| 857 | ans = 0._wp | ||
| 858 | |||
| 859 | 51588 | select case (j) | |
| 860 | case (0) | ||
| 861 | 1121 | select case (j_minus_i) | |
| 862 | case (0) | ||
| 863 | ans = -5_wp | ||
| 864 | 276 | ans = 20_wp + ans * x | |
| 865 | 276 | ans = -30_wp + ans * x | |
| 866 | 276 | ans = 20_wp + ans * x | |
| 867 |
1/2✓ Branch 3 → 4 taken 276 times.
✗ Branch 3 → 30 not taken.
|
276 | ans = -5_wp + ans * x |
| 868 | end select | ||
| 869 | case (1) | ||
| 870 | 1737 | select case (j_minus_i) | |
| 871 | case (1) | ||
| 872 | ans = 9.6875_wp | ||
| 873 | 276 | ans = -37.5_wp + ans * x | |
| 874 | 276 | ans = 52.5_wp + ans * x | |
| 875 | 276 | ans = -30_wp + ans * x | |
| 876 | 276 | ans = 5_wp + ans * x | |
| 877 | case (0) | ||
| 878 | ans = -0.3125_wp | ||
| 879 | 293 | ans = 1.25_wp + ans * x | |
| 880 | 293 | ans = -1.875_wp + ans * x | |
| 881 | 293 | ans = 1.25_wp + ans * x | |
| 882 |
2/3✓ Branch 5 → 6 taken 276 times.
✓ Branch 5 → 7 taken 293 times.
✗ Branch 5 → 30 not taken.
|
569 | ans = -0.3125_wp + ans * x |
| 883 | end select | ||
| 884 | case (2) | ||
| 885 | 2403 | select case (j_minus_i) | |
| 886 | case (2) | ||
| 887 | ans = -6.65509259259259256_wp | ||
| 888 | 276 | ans = 23.6111111111111107_wp + ans * x | |
| 889 | 276 | ans = -27.5_wp + ans * x | |
| 890 | 276 | ans = 10_wp + ans * x | |
| 891 | 276 | ans = ans * x | |
| 892 | case (1) | ||
| 893 | ans = 0.84490740740740744_wp | ||
| 894 | 293 | ans = -3.00925925925925908_wp + ans * x | |
| 895 | 293 | ans = 3.40277777777777768_wp + ans * x | |
| 896 | 293 | ans = -0.78703703703703709_wp + ans * x | |
| 897 | 293 | ans = -0.54398148148148151_wp + ans * x | |
| 898 | case (0) | ||
| 899 | ans = -0.0925925925925925875_wp | ||
| 900 | 323 | ans = 0.37037037037037035_wp + ans * x | |
| 901 | 323 | ans = -0.55555555555555558_wp + ans * x | |
| 902 | 323 | ans = 0.37037037037037035_wp + ans * x | |
| 903 |
3/4✓ Branch 8 → 9 taken 276 times.
✓ Branch 8 → 10 taken 293 times.
✓ Branch 8 → 11 taken 323 times.
✗ Branch 8 → 30 not taken.
|
892 | ans = -0.0925925925925925875_wp + ans * x |
| 904 | end select | ||
| 905 | case (3) | ||
| 906 | 3080 | select case (j_minus_i) | |
| 907 | case (3) | ||
| 908 | ans = 2.40162037037037024_wp | ||
| 909 | 276 | ans = -6.94444444444444464_wp + ans * x | |
| 910 | 276 | ans = 5_wp + ans * x | |
| 911 | 276 | ans = ans * x | |
| 912 | 276 | ans = ans * x | |
| 913 | case (2) | ||
| 914 | ans = -0.93171296296296291_wp | ||
| 915 | 293 | ans = 2.6620370370370372_wp + ans * x | |
| 916 | 293 | ans = -1.42361111111111116_wp + ans * x | |
| 917 | 293 | ans = -1.22685185185185186_wp + ans * x | |
| 918 | 293 | ans = 0.45717592592592593_wp + ans * x | |
| 919 | case (1) | ||
| 920 | ans = 0.318287037037037035_wp | ||
| 921 | 323 | ans = -1.06481481481481488_wp + ans * x | |
| 922 | 323 | ans = 0.97222222222222221_wp + ans * x | |
| 923 | 323 | ans = 0.185185185185185175_wp + ans * x | |
| 924 | 323 | ans = -0.462962962962962965_wp + ans * x | |
| 925 | case (0) | ||
| 926 | ans = -0.0520833333333333356_wp | ||
| 927 | 343 | ans = 0.208333333333333343_wp + ans * x | |
| 928 | 343 | ans = -0.3125_wp + ans * x | |
| 929 | 343 | ans = 0.208333333333333343_wp + ans * x | |
| 930 |
4/5✓ Branch 12 → 13 taken 276 times.
✓ Branch 12 → 14 taken 293 times.
✓ Branch 12 → 15 taken 323 times.
✓ Branch 12 → 16 taken 343 times.
✗ Branch 12 → 30 not taken.
|
1235 | ans = -0.0520833333333333356_wp + ans * x |
| 931 | end select | ||
| 932 | case (4) | ||
| 933 | 48616 | select case (j_minus_i) | |
| 934 | case (4) | ||
| 935 | ans = -0.47569444444444442_wp | ||
| 936 | 276 | ans = 0.83333333333333337_wp + ans * x | |
| 937 | 276 | ans = ans * x | |
| 938 | 276 | ans = ans * x | |
| 939 | 276 | ans = ans * x | |
| 940 | case (3) | ||
| 941 | ans = 0.56597222222222221_wp | ||
| 942 | 293 | ans = -1.06944444444444442_wp + ans * x | |
| 943 | 293 | ans = -0.354166666666666685_wp + ans * x | |
| 944 | 293 | ans = 0.59722222222222221_wp + ans * x | |
| 945 | 293 | ans = 0.357638888888888895_wp + ans * x | |
| 946 | case (2) | ||
| 947 | ans = -0.47569444444444442_wp | ||
| 948 | 323 | ans = 1.19444444444444442_wp + ans * x | |
| 949 | 323 | ans = -0.166666666666666657_wp + ans * x | |
| 950 | 323 | ans = -1.05555555555555558_wp + ans * x | |
| 951 | 323 | ans = 0.0972222222222222238_wp + ans * x | |
| 952 | case (1) | ||
| 953 | ans = 0.21875_wp | ||
| 954 | 343 | ans = -0.70833333333333337_wp + ans * x | |
| 955 | 343 | ans = 0.5625_wp + ans * x | |
| 956 | 343 | ans = 0.291666666666666685_wp + ans * x | |
| 957 | 343 | ans = -0.40625_wp + ans * x | |
| 958 | case (0) | ||
| 959 | ans = -0.0416666666666666644_wp | ||
| 960 | 334 | ans = 0.166666666666666657_wp + ans * x | |
| 961 | 334 | ans = -0.25_wp + ans * x | |
| 962 | 334 | ans = 0.166666666666666657_wp + ans * x | |
| 963 |
5/6✓ Branch 17 → 18 taken 276 times.
✓ Branch 17 → 19 taken 293 times.
✓ Branch 17 → 20 taken 323 times.
✓ Branch 17 → 21 taken 343 times.
✓ Branch 17 → 22 taken 334 times.
✗ Branch 17 → 30 not taken.
|
1569 | ans = -0.0416666666666666644_wp + ans * x |
| 964 | end select | ||
| 965 | case (5) | ||
| 966 |
6/7✓ Branch 2 → 3 taken 276 times.
✓ Branch 2 → 5 taken 569 times.
✓ Branch 2 → 8 taken 892 times.
✓ Branch 2 → 12 taken 1235 times.
✓ Branch 2 → 17 taken 1569 times.
✓ Branch 2 → 23 taken 46771 times.
✗ Branch 2 → 30 not taken.
|
51312 | select case (j_minus_i) |
| 967 | case (5) | ||
| 968 | ans = 0.0416666666666666644_wp | ||
| 969 | 7758 | ans = ans * x | |
| 970 | 7758 | ans = ans * x | |
| 971 | 7758 | ans = ans * x | |
| 972 | 7758 | ans = ans * x | |
| 973 | case (4) | ||
| 974 | ans = -0.208333333333333343_wp | ||
| 975 | 7785 | ans = 0.166666666666666657_wp + ans * x | |
| 976 | 7785 | ans = 0.25_wp + ans * x | |
| 977 | 7785 | ans = 0.166666666666666657_wp + ans * x | |
| 978 | 7785 | ans = 0.0416666666666666644_wp + ans * x | |
| 979 | case (3) | ||
| 980 | ans = 0.416666666666666685_wp | ||
| 981 | 7815 | ans = -0.66666666666666663_wp + ans * x | |
| 982 | 7815 | ans = -0.5_wp + ans * x | |
| 983 | 7815 | ans = 0.333333333333333315_wp + ans * x | |
| 984 | 7815 | ans = 0.416666666666666685_wp + ans * x | |
| 985 | case (2) | ||
| 986 | ans = -0.416666666666666685_wp | ||
| 987 | 7828 | ans = 1_wp + ans * x | |
| 988 | 7828 | ans = ans * x | |
| 989 | 7828 | ans = -1_wp + ans * x | |
| 990 | 7828 | ans = ans * x | |
| 991 | case (1) | ||
| 992 | ans = 0.208333333333333343_wp | ||
| 993 | 7808 | ans = -0.66666666666666663_wp + ans * x | |
| 994 | 7808 | ans = 0.5_wp + ans * x | |
| 995 | 7808 | ans = 0.333333333333333315_wp + ans * x | |
| 996 | 7808 | ans = -0.416666666666666685_wp + ans * x | |
| 997 | case (0) | ||
| 998 | ans = -0.0416666666666666644_wp | ||
| 999 | 7777 | ans = 0.166666666666666657_wp + ans * x | |
| 1000 | 7777 | ans = -0.25_wp + ans * x | |
| 1001 | 7777 | ans = 0.166666666666666657_wp + ans * x | |
| 1002 |
6/7✓ Branch 23 → 24 taken 7758 times.
✓ Branch 23 → 25 taken 7785 times.
✓ Branch 23 → 26 taken 7815 times.
✓ Branch 23 → 27 taken 7828 times.
✓ Branch 23 → 28 taken 7808 times.
✓ Branch 23 → 29 taken 7777 times.
✗ Branch 23 → 30 not taken.
|
46771 | ans = -0.0416666666666666644_wp + ans * x |
| 1003 | end select | ||
| 1004 | end select | ||
| 1005 | |||
| 1006 |
1/2✗ Branch 30 → 31 not taken.
✓ Branch 30 → 32 taken 51312 times.
|
51312 | if (scaled) then |
| 1007 | ✗ | ans = 6 * ans / (1 + j) | |
| 1008 | end if | ||
| 1009 | |||
| 1010 | 51312 | end function | |
| 1011 | |||
| 1012 | 83797531 | pure function bspline_eval_6(x, j, j_minus_i, scaled) result(ans) | |
| 1013 | !$acc routine seq | ||
| 1014 | |||
| 1015 | real(wp), intent(in) :: x | ||
| 1016 | integer, intent(in) :: j, j_minus_i | ||
| 1017 | logical, intent(in) :: scaled | ||
| 1018 | real(wp) :: ans | ||
| 1019 | |||
| 1020 | ans = 0._wp | ||
| 1021 | |||
| 1022 | 85962802 | select case (j) | |
| 1023 | case (0) | ||
| 1024 | 8680980 | select case (j_minus_i) | |
| 1025 | case (0) | ||
| 1026 | ans = 1_wp | ||
| 1027 | 2082441 | ans = -6_wp + ans * x | |
| 1028 | 2082441 | ans = 15_wp + ans * x | |
| 1029 | 2082441 | ans = -20_wp + ans * x | |
| 1030 | 2082441 | ans = 15_wp + ans * x | |
| 1031 | 2082441 | ans = -6_wp + ans * x | |
| 1032 |
2/2✓ Branch 3 → 4 taken 2082441 times.
✓ Branch 3 → 38 taken 82830 times.
|
2165271 | ans = 1_wp + ans * x |
| 1033 | end select | ||
| 1034 | case (1) | ||
| 1035 | 13217037 | select case (j_minus_i) | |
| 1036 | case (1) | ||
| 1037 | ans = -1.96875_wp | ||
| 1038 | 2214585 | ans = 11.625_wp + ans * x | |
| 1039 | 2214585 | ans = -28.125_wp + ans * x | |
| 1040 | 2214585 | ans = 35_wp + ans * x | |
| 1041 | 2214585 | ans = -22.5_wp + ans * x | |
| 1042 | 2214585 | ans = 6_wp + ans * x | |
| 1043 | 2214585 | ans = ans * x | |
| 1044 | case (0) | ||
| 1045 | ans = 0.03125_wp | ||
| 1046 | 2149658 | ans = -0.1875_wp + ans * x | |
| 1047 | 2149658 | ans = 0.46875_wp + ans * x | |
| 1048 | 2149658 | ans = -0.625_wp + ans * x | |
| 1049 | 2149658 | ans = 0.46875_wp + ans * x | |
| 1050 | 2149658 | ans = -0.1875_wp + ans * x | |
| 1051 |
3/3✓ Branch 5 → 6 taken 2214585 times.
✓ Branch 5 → 7 taken 2149658 times.
✓ Branch 5 → 38 taken 69025 times.
|
4433268 | ans = 0.03125_wp + ans * x |
| 1052 | end select | ||
| 1053 | case (2) | ||
| 1054 | 17488915 | select case (j_minus_i) | |
| 1055 | case (2) | ||
| 1056 | ans = 1.41242283950617287_wp | ||
| 1057 | 2214585 | ans = -7.98611111111111072_wp + ans * x | |
| 1058 | 2214585 | ans = 17.7083333333333321_wp + ans * x | |
| 1059 | 2214585 | ans = -18.3333333333333321_wp + ans * x | |
| 1060 | 2214585 | ans = 7.5_wp + ans * x | |
| 1061 | 2214585 | ans = ans * x | |
| 1062 | 2214585 | ans = ans * x | |
| 1063 | case (1) | ||
| 1064 | ans = -0.0875771604938271608_wp | ||
| 1065 | 2149658 | ans = 0.48842592592592593_wp + ans * x | |
| 1066 | 2149658 | ans = -1.03587962962962954_wp + ans * x | |
| 1067 | 2149658 | ans = 0.887345679012345734_wp + ans * x | |
| 1068 | 2149658 | ans = 0.0752314814814814825_wp + ans * x | |
| 1069 | 2149658 | ans = -0.62268518518518523_wp + ans * x | |
| 1070 | 2149658 | ans = 0.301311728395061706_wp + ans * x | |
| 1071 | case (0) | ||
| 1072 | ans = 0.00617283950617283916_wp | ||
| 1073 | 2149721 | ans = -0.037037037037037035_wp + ans * x | |
| 1074 | 2149721 | ans = 0.0925925925925925875_wp + ans * x | |
| 1075 | 2149721 | ans = -0.123456790123456783_wp + ans * x | |
| 1076 | 2149721 | ans = 0.0925925925925925875_wp + ans * x | |
| 1077 | 2149721 | ans = -0.037037037037037035_wp + ans * x | |
| 1078 |
4/4✓ Branch 8 → 9 taken 2214585 times.
✓ Branch 8 → 10 taken 2149658 times.
✓ Branch 8 → 11 taken 2149721 times.
✓ Branch 8 → 38 taken 55220 times.
|
6569184 | ans = 0.00617283950617283916_wp + ans * x |
| 1079 | end select | ||
| 1080 | case (3) | ||
| 1081 | 21760877 | select case (j_minus_i) | |
| 1082 | case (3) | ||
| 1083 | ans = -0.563753858024691357_wp | ||
| 1084 | 2214585 | ans = 2.88194444444444464_wp + ans * x | |
| 1085 | 2214585 | ans = -5.20833333333333304_wp + ans * x | |
| 1086 | 2214585 | ans = 3.33333333333333348_wp + ans * x | |
| 1087 | 2214585 | ans = ans * x | |
| 1088 | 2214585 | ans = ans * x | |
| 1089 | 2214585 | ans = ans * x | |
| 1090 | case (2) | ||
| 1091 | ans = 0.102912808641975315_wp | ||
| 1092 | 2149658 | ans = -0.50057870370370372_wp + ans * x | |
| 1093 | 2149658 | ans = 0.74508101851851849_wp + ans * x | |
| 1094 | 2149658 | ans = 0.0443672839506172867_wp + ans * x | |
| 1095 | 2149658 | ans = -0.88686342592592593_wp + ans * x | |
| 1096 | 2149658 | ans = 0.193865740740740727_wp + ans * x | |
| 1097 | 2149658 | ans = 0.443190586419753063_wp + ans * x | |
| 1098 | case (1) | ||
| 1099 | ans = -0.0220871913580246923_wp | ||
| 1100 | 2149721 | ans = 0.116898148148148154_wp + ans * x | |
| 1101 | 2149721 | ans = -0.214120370370370378_wp + ans * x | |
| 1102 | 2149721 | ans = 0.0771604938271604895_wp + ans * x | |
| 1103 | 2149721 | ans = 0.25462962962962965_wp + ans * x | |
| 1104 | 2149721 | ans = -0.35185185185185186_wp + ans * x | |
| 1105 | 2149721 | ans = 0.141975308641975301_wp + ans * x | |
| 1106 | case (0) | ||
| 1107 | ans = 0.00260416666666666652_wp | ||
| 1108 | 2149767 | ans = -0.015625_wp + ans * x | |
| 1109 | 2149767 | ans = 0.0390625_wp + ans * x | |
| 1110 | 2149767 | ans = -0.0520833333333333356_wp + ans * x | |
| 1111 | 2149767 | ans = 0.0390625_wp + ans * x | |
| 1112 | 2149767 | ans = -0.015625_wp + ans * x | |
| 1113 |
5/5✓ Branch 12 → 13 taken 2214585 times.
✓ Branch 12 → 14 taken 2149658 times.
✓ Branch 12 → 15 taken 2149721 times.
✓ Branch 12 → 16 taken 2149767 times.
✓ Branch 12 → 38 taken 41415 times.
|
8705146 | ans = 0.00260416666666666652_wp + ans * x |
| 1114 | end select | ||
| 1115 | case (4) | ||
| 1116 | 26032843 | select case (j_minus_i) | |
| 1117 | case (4) | ||
| 1118 | ans = 0.1391087962962963_wp | ||
| 1119 | 2214585 | ans = -0.570833333333333304_wp + ans * x | |
| 1120 | 2214585 | ans = 0.625_wp + ans * x | |
| 1121 | 2214585 | ans = ans * x | |
| 1122 | 2214585 | ans = ans * x | |
| 1123 | 2214585 | ans = ans * x | |
| 1124 | 2214585 | ans = ans * x | |
| 1125 | case (3) | ||
| 1126 | ans = -0.0692245370370370428_wp | ||
| 1127 | 2149658 | ans = 0.26381944444444444_wp + ans * x | |
| 1128 | 2149658 | ans = -0.142534722222222215_wp + ans * x | |
| 1129 | 2149658 | ans = -0.426157407407407429_wp + ans * x | |
| 1130 | 2149658 | ans = 0.128298611111111099_wp + ans * x | |
| 1131 | 2149658 | ans = 0.480486111111111114_wp + ans * x | |
| 1132 | 2149658 | ans = 0.193275462962962968_wp + ans * x | |
| 1133 | case (2) | ||
| 1134 | ans = 0.0349421296296296285_wp | ||
| 1135 | 2149721 | ans = -0.151527777777777789_wp + ans * x | |
| 1136 | 2149721 | ans = 0.138194444444444453_wp + ans * x | |
| 1137 | 2149721 | ans = 0.257407407407407418_wp + ans * x | |
| 1138 | 2149721 | ans = -0.405555555555555558_wp + ans * x | |
| 1139 | 2149721 | ans = -0.207777777777777783_wp + ans * x | |
| 1140 | 2149721 | ans = 0.427962962962962989_wp + ans * x | |
| 1141 | case (1) | ||
| 1142 | ans = -0.0113541666666666669_wp | ||
| 1143 | 2149767 | ans = 0.0581250000000000031_wp + ans * x | |
| 1144 | 2149767 | ans = -0.0953124999999999944_wp + ans * x | |
| 1145 | 2149767 | ans = -0.00625000000000000035_wp + ans * x | |
| 1146 | 2149767 | ans = 0.204687499999999994_wp + ans * x | |
| 1147 | 2149767 | ans = -0.241875000000000007_wp + ans * x | |
| 1148 | 2149767 | ans = 0.0936458333333333309_wp + ans * x | |
| 1149 | case (0) | ||
| 1150 | ans = 0.00166666666666666677_wp | ||
| 1151 | 2149805 | ans = -0.0100000000000000002_wp + ans * x | |
| 1152 | 2149805 | ans = 0.0250000000000000014_wp + ans * x | |
| 1153 | 2149805 | ans = -0.0333333333333333329_wp + ans * x | |
| 1154 | 2149805 | ans = 0.0250000000000000014_wp + ans * x | |
| 1155 | 2149805 | ans = -0.0100000000000000002_wp + ans * x | |
| 1156 |
6/6✓ Branch 17 → 18 taken 2214585 times.
✓ Branch 17 → 19 taken 2149658 times.
✓ Branch 17 → 20 taken 2149721 times.
✓ Branch 17 → 21 taken 2149767 times.
✓ Branch 17 → 22 taken 2149805 times.
✓ Branch 17 → 38 taken 27610 times.
|
10841146 | ans = 0.00166666666666666677_wp + ans * x |
| 1157 | end select | ||
| 1158 | case (5) | ||
| 1159 | 53298101 | select case (j_minus_i) | |
| 1160 | case (5) | ||
| 1161 | ans = -0.0204166666666666663_wp | ||
| 1162 | 2214585 | ans = 0.0500000000000000028_wp + ans * x | |
| 1163 | 2214585 | ans = ans * x | |
| 1164 | 2214585 | ans = ans * x | |
| 1165 | 2214585 | ans = ans * x | |
| 1166 | 2214585 | ans = ans * x | |
| 1167 | 2214585 | ans = ans * x | |
| 1168 | case (4) | ||
| 1169 | ans = 0.029583333333333333_wp | ||
| 1170 | 2149658 | ans = -0.072499999999999995_wp + ans * x | |
| 1171 | 2149658 | ans = -0.0562500000000000014_wp + ans * x | |
| 1172 | 2149658 | ans = 0.0916666666666666602_wp + ans * x | |
| 1173 | 2149658 | ans = 0.193750000000000006_wp + ans * x | |
| 1174 | 2149658 | ans = 0.127500000000000002_wp + ans * x | |
| 1175 | 2149658 | ans = 0.029583333333333333_wp + ans * x | |
| 1176 | case (3) | ||
| 1177 | ans = -0.0329166666666666635_wp | ||
| 1178 | 2149721 | ans = 0.104999999999999996_wp + ans * x | |
| 1179 | 2149721 | ans = 0.0250000000000000014_wp + ans * x | |
| 1180 | 2149721 | ans = -0.266666666666666663_wp + ans * x | |
| 1181 | 2149721 | ans = -0.149999999999999994_wp + ans * x | |
| 1182 | 2149721 | ans = 0.380000000000000004_wp + ans * x | |
| 1183 | 2149721 | ans = 0.343333333333333324_wp + ans * x | |
| 1184 | case (2) | ||
| 1185 | ans = 0.022638888888888889_wp | ||
| 1186 | 2149767 | ans = -0.0924999999999999989_wp + ans * x | |
| 1187 | 2149767 | ans = 0.0562500000000000014_wp + ans * x | |
| 1188 | 2149767 | ans = 0.225000000000000006_wp + ans * x | |
| 1189 | 2149767 | ans = -0.243749999999999994_wp + ans * x | |
| 1190 | 2149767 | ans = -0.292499999999999982_wp + ans * x | |
| 1191 | 2149767 | ans = 0.403749999999999998_wp + ans * x | |
| 1192 | case (1) | ||
| 1193 | ans = -0.00861111111111111105_wp | ||
| 1194 | 2149805 | ans = 0.0433333333333333348_wp + ans * x | |
| 1195 | 2149805 | ans = -0.0666666666666666657_wp + ans * x | |
| 1196 | 2149805 | ans = -0.0222222222222222231_wp + ans * x | |
| 1197 | 2149805 | ans = 0.18333333333333332_wp + ans * x | |
| 1198 | 2149805 | ans = -0.206666666666666665_wp + ans * x | |
| 1199 | 2149805 | ans = 0.0788888888888888834_wp + ans * x | |
| 1200 | case (0) | ||
| 1201 | ans = 0.00138888888888888894_wp | ||
| 1202 | 2149771 | ans = -0.00833333333333333322_wp + ans * x | |
| 1203 | 2149771 | ans = 0.0208333333333333322_wp + ans * x | |
| 1204 | 2149771 | ans = -0.0277777777777777762_wp + ans * x | |
| 1205 | 2149771 | ans = 0.0208333333333333322_wp + ans * x | |
| 1206 | 2149771 | ans = -0.00833333333333333322_wp + ans * x | |
| 1207 |
7/7✓ Branch 23 → 24 taken 2214585 times.
✓ Branch 23 → 25 taken 2149658 times.
✓ Branch 23 → 26 taken 2149721 times.
✓ Branch 23 → 27 taken 2149767 times.
✓ Branch 23 → 28 taken 2149805 times.
✓ Branch 23 → 29 taken 2149771 times.
✓ Branch 23 → 38 taken 13805 times.
|
12977112 | ans = 0.00138888888888888894_wp + ans * x |
| 1208 | end select | ||
| 1209 | case (6) | ||
| 1210 |
7/8✓ Branch 2 → 3 taken 2165271 times.
✓ Branch 2 → 5 taken 4433268 times.
✓ Branch 2 → 8 taken 6569184 times.
✓ Branch 2 → 12 taken 8705146 times.
✓ Branch 2 → 17 taken 10841146 times.
✓ Branch 2 → 23 taken 12977112 times.
✓ Branch 2 → 30 taken 38106404 times.
✗ Branch 2 → 38 not taken.
|
83797531 | select case (j_minus_i) |
| 1211 | case (6) | ||
| 1212 | ans = 0.00138888888888888894_wp | ||
| 1213 | 5499306 | ans = ans * x | |
| 1214 | 5499306 | ans = ans * x | |
| 1215 | 5499306 | ans = ans * x | |
| 1216 | 5499306 | ans = ans * x | |
| 1217 | 5499306 | ans = ans * x | |
| 1218 | 5499306 | ans = ans * x | |
| 1219 | case (5) | ||
| 1220 | ans = -0.00833333333333333322_wp | ||
| 1221 | 5434427 | ans = 0.00833333333333333322_wp + ans * x | |
| 1222 | 5434427 | ans = 0.0208333333333333322_wp + ans * x | |
| 1223 | 5434427 | ans = 0.0277777777777777762_wp + ans * x | |
| 1224 | 5434427 | ans = 0.0208333333333333322_wp + ans * x | |
| 1225 | 5434427 | ans = 0.00833333333333333322_wp + ans * x | |
| 1226 | 5434427 | ans = 0.00138888888888888894_wp + ans * x | |
| 1227 | case (4) | ||
| 1228 | ans = 0.0208333333333333322_wp | ||
| 1229 | 5434485 | ans = -0.0416666666666666644_wp + ans * x | |
| 1230 | 5434485 | ans = -0.0625_wp + ans * x | |
| 1231 | 5434485 | ans = 0.0277777777777777762_wp + ans * x | |
| 1232 | 5434485 | ans = 0.1875_wp + ans * x | |
| 1233 | 5434485 | ans = 0.208333333333333343_wp + ans * x | |
| 1234 | 5434485 | ans = 0.079166666666666663_wp + ans * x | |
| 1235 | case (3) | ||
| 1236 | ans = -0.0277777777777777762_wp | ||
| 1237 | 5434574 | ans = 0.0833333333333333287_wp + ans * x | |
| 1238 | 5434574 | ans = 0.0416666666666666644_wp + ans * x | |
| 1239 | 5434574 | ans = -0.22222222222222221_wp + ans * x | |
| 1240 | 5434574 | ans = -0.208333333333333343_wp + ans * x | |
| 1241 | 5434574 | ans = 0.333333333333333315_wp + ans * x | |
| 1242 | 5434574 | ans = 0.419444444444444453_wp + ans * x | |
| 1243 | case (2) | ||
| 1244 | ans = 0.0208333333333333322_wp | ||
| 1245 | 5434613 | ans = -0.0833333333333333287_wp + ans * x | |
| 1246 | 5434613 | ans = 0.0416666666666666644_wp + ans * x | |
| 1247 | 5434613 | ans = 0.22222222222222221_wp + ans * x | |
| 1248 | 5434613 | ans = -0.208333333333333343_wp + ans * x | |
| 1249 | 5434613 | ans = -0.333333333333333315_wp + ans * x | |
| 1250 | 5434613 | ans = 0.419444444444444453_wp + ans * x | |
| 1251 | case (1) | ||
| 1252 | ans = -0.00833333333333333322_wp | ||
| 1253 | 5434536 | ans = 0.0416666666666666644_wp + ans * x | |
| 1254 | 5434536 | ans = -0.0625_wp + ans * x | |
| 1255 | 5434536 | ans = -0.0277777777777777762_wp + ans * x | |
| 1256 | 5434536 | ans = 0.1875_wp + ans * x | |
| 1257 | 5434536 | ans = -0.208333333333333343_wp + ans * x | |
| 1258 | 5434536 | ans = 0.079166666666666663_wp + ans * x | |
| 1259 | case (0) | ||
| 1260 | ans = 0.00138888888888888894_wp | ||
| 1261 | 5434463 | ans = -0.00833333333333333322_wp + ans * x | |
| 1262 | 5434463 | ans = 0.0208333333333333322_wp + ans * x | |
| 1263 | 5434463 | ans = -0.0277777777777777762_wp + ans * x | |
| 1264 | 5434463 | ans = 0.0208333333333333322_wp + ans * x | |
| 1265 | 5434463 | ans = -0.00833333333333333322_wp + ans * x | |
| 1266 |
7/8✓ Branch 30 → 31 taken 5499306 times.
✓ Branch 30 → 32 taken 5434427 times.
✓ Branch 30 → 33 taken 5434485 times.
✓ Branch 30 → 34 taken 5434574 times.
✓ Branch 30 → 35 taken 5434613 times.
✓ Branch 30 → 36 taken 5434536 times.
✓ Branch 30 → 37 taken 5434463 times.
✗ Branch 30 → 38 not taken.
|
38106404 | ans = 0.00138888888888888894_wp + ans * x |
| 1267 | end select | ||
| 1268 | end select | ||
| 1269 | |||
| 1270 |
2/2✓ Branch 38 → 39 taken 9762704 times.
✓ Branch 38 → 40 taken 74034827 times.
|
83797531 | if (scaled) then |
| 1271 | 9762704 | ans = 7 * ans / (1 + j) | |
| 1272 | end if | ||
| 1273 | |||
| 1274 | 83797531 | end function | |
| 1275 | |||
| 1276 | 57596 | pure function bspline_eval_derivative_6(x, j, j_minus_i, scaled) result(ans) | |
| 1277 | !$acc routine seq | ||
| 1278 | |||
| 1279 | real(wp), intent(in) :: x | ||
| 1280 | integer, intent(in) :: j, j_minus_i | ||
| 1281 | logical, intent(in) :: scaled | ||
| 1282 | real(wp) :: ans | ||
| 1283 | |||
| 1284 | ans = 0._wp | ||
| 1285 | |||
| 1286 | 57837 | select case (j) | |
| 1287 | case (0) | ||
| 1288 | 979 | select case (j_minus_i) | |
| 1289 | case (0) | ||
| 1290 | ans = 6_wp | ||
| 1291 | 241 | ans = -30_wp + ans * x | |
| 1292 | 241 | ans = 60_wp + ans * x | |
| 1293 | 241 | ans = -60_wp + ans * x | |
| 1294 | 241 | ans = 30_wp + ans * x | |
| 1295 |
1/2✓ Branch 3 → 4 taken 241 times.
✗ Branch 3 → 38 not taken.
|
241 | ans = -6_wp + ans * x |
| 1296 | end select | ||
| 1297 | case (1) | ||
| 1298 | 1517 | select case (j_minus_i) | |
| 1299 | case (1) | ||
| 1300 | ans = -11.8125_wp | ||
| 1301 | 241 | ans = 58.125_wp + ans * x | |
| 1302 | 241 | ans = -112.5_wp + ans * x | |
| 1303 | 241 | ans = 105_wp + ans * x | |
| 1304 | 241 | ans = -45_wp + ans * x | |
| 1305 | 241 | ans = 6_wp + ans * x | |
| 1306 | case (0) | ||
| 1307 | ans = 0.1875_wp | ||
| 1308 | 256 | ans = -0.9375_wp + ans * x | |
| 1309 | 256 | ans = 1.875_wp + ans * x | |
| 1310 | 256 | ans = -1.875_wp + ans * x | |
| 1311 | 256 | ans = 0.9375_wp + ans * x | |
| 1312 |
2/3✓ Branch 5 → 6 taken 241 times.
✓ Branch 5 → 7 taken 256 times.
✗ Branch 5 → 38 not taken.
|
497 | ans = -0.1875_wp + ans * x |
| 1313 | end select | ||
| 1314 | case (2) | ||
| 1315 | 2098 | select case (j_minus_i) | |
| 1316 | case (2) | ||
| 1317 | ans = 8.47453703703703631_wp | ||
| 1318 | 241 | ans = -39.9305555555555571_wp + ans * x | |
| 1319 | 241 | ans = 70.8333333333333286_wp + ans * x | |
| 1320 | 241 | ans = -55_wp + ans * x | |
| 1321 | 241 | ans = 15_wp + ans * x | |
| 1322 | 241 | ans = ans * x | |
| 1323 | case (1) | ||
| 1324 | ans = -0.52546296296296291_wp | ||
| 1325 | 256 | ans = 2.44212962962962976_wp + ans * x | |
| 1326 | 256 | ans = -4.14351851851851816_wp + ans * x | |
| 1327 | 256 | ans = 2.6620370370370372_wp + ans * x | |
| 1328 | 256 | ans = 0.150462962962962965_wp + ans * x | |
| 1329 | 256 | ans = -0.62268518518518523_wp + ans * x | |
| 1330 | case (0) | ||
| 1331 | ans = 0.037037037037037035_wp | ||
| 1332 | 282 | ans = -0.185185185185185175_wp + ans * x | |
| 1333 | 282 | ans = 0.37037037037037035_wp + ans * x | |
| 1334 | 282 | ans = -0.37037037037037035_wp + ans * x | |
| 1335 | 282 | ans = 0.185185185185185175_wp + ans * x | |
| 1336 |
3/4✓ Branch 8 → 9 taken 241 times.
✓ Branch 8 → 10 taken 256 times.
✓ Branch 8 → 11 taken 282 times.
✗ Branch 8 → 38 not taken.
|
779 | ans = -0.037037037037037035_wp + ans * x |
| 1337 | end select | ||
| 1338 | case (3) | ||
| 1339 | 2706 | select case (j_minus_i) | |
| 1340 | case (3) | ||
| 1341 | ans = -3.38252314814814836_wp | ||
| 1342 | 241 | ans = 14.4097222222222214_wp + ans * x | |
| 1343 | 241 | ans = -20.8333333333333321_wp + ans * x | |
| 1344 | 241 | ans = 10_wp + ans * x | |
| 1345 | 241 | ans = ans * x | |
| 1346 | 241 | ans = ans * x | |
| 1347 | case (2) | ||
| 1348 | ans = 0.61747685185185186_wp | ||
| 1349 | 256 | ans = -2.5028935185185186_wp + ans * x | |
| 1350 | 256 | ans = 2.98032407407407396_wp + ans * x | |
| 1351 | 256 | ans = 0.13310185185185186_wp + ans * x | |
| 1352 | 256 | ans = -1.77372685185185186_wp + ans * x | |
| 1353 | 256 | ans = 0.193865740740740727_wp + ans * x | |
| 1354 | case (1) | ||
| 1355 | ans = -0.13252314814814814_wp | ||
| 1356 | 282 | ans = 0.5844907407407407_wp + ans * x | |
| 1357 | 282 | ans = -0.85648148148148151_wp + ans * x | |
| 1358 | 282 | ans = 0.231481481481481483_wp + ans * x | |
| 1359 | 282 | ans = 0.5092592592592593_wp + ans * x | |
| 1360 | 282 | ans = -0.35185185185185186_wp + ans * x | |
| 1361 | case (0) | ||
| 1362 | ans = 0.015625_wp | ||
| 1363 | 299 | ans = -0.078125_wp + ans * x | |
| 1364 | 299 | ans = 0.15625_wp + ans * x | |
| 1365 | 299 | ans = -0.15625_wp + ans * x | |
| 1366 | 299 | ans = 0.078125_wp + ans * x | |
| 1367 |
4/5✓ Branch 12 → 13 taken 241 times.
✓ Branch 12 → 14 taken 256 times.
✓ Branch 12 → 15 taken 282 times.
✓ Branch 12 → 16 taken 299 times.
✗ Branch 12 → 38 not taken.
|
1078 | ans = -0.015625_wp + ans * x |
| 1368 | end select | ||
| 1369 | case (4) | ||
| 1370 | 3321 | select case (j_minus_i) | |
| 1371 | case (4) | ||
| 1372 | ans = 0.834652777777777799_wp | ||
| 1373 | 241 | ans = -2.85416666666666652_wp + ans * x | |
| 1374 | 241 | ans = 2.5_wp + ans * x | |
| 1375 | 241 | ans = ans * x | |
| 1376 | 241 | ans = ans * x | |
| 1377 | 241 | ans = ans * x | |
| 1378 | case (3) | ||
| 1379 | ans = -0.415347222222222201_wp | ||
| 1380 | 256 | ans = 1.31909722222222214_wp + ans * x | |
| 1381 | 256 | ans = -0.570138888888888862_wp + ans * x | |
| 1382 | 256 | ans = -1.27847222222222223_wp + ans * x | |
| 1383 | 256 | ans = 0.256597222222222199_wp + ans * x | |
| 1384 | 256 | ans = 0.480486111111111114_wp + ans * x | |
| 1385 | case (2) | ||
| 1386 | ans = 0.209652777777777771_wp | ||
| 1387 | 282 | ans = -0.757638888888888862_wp + ans * x | |
| 1388 | 282 | ans = 0.552777777777777812_wp + ans * x | |
| 1389 | 282 | ans = 0.772222222222222254_wp + ans * x | |
| 1390 | 282 | ans = -0.811111111111111116_wp + ans * x | |
| 1391 | 282 | ans = -0.207777777777777783_wp + ans * x | |
| 1392 | case (1) | ||
| 1393 | ans = -0.068125000000000005_wp | ||
| 1394 | 299 | ans = 0.290625000000000022_wp + ans * x | |
| 1395 | 299 | ans = -0.381249999999999978_wp + ans * x | |
| 1396 | 299 | ans = -0.0187499999999999993_wp + ans * x | |
| 1397 | 299 | ans = 0.409374999999999989_wp + ans * x | |
| 1398 | 299 | ans = -0.241875000000000007_wp + ans * x | |
| 1399 | case (0) | ||
| 1400 | ans = 0.0100000000000000002_wp | ||
| 1401 | 309 | ans = -0.0500000000000000028_wp + ans * x | |
| 1402 | 309 | ans = 0.100000000000000006_wp + ans * x | |
| 1403 | 309 | ans = -0.100000000000000006_wp + ans * x | |
| 1404 | 309 | ans = 0.0500000000000000028_wp + ans * x | |
| 1405 |
5/6✓ Branch 17 → 18 taken 241 times.
✓ Branch 17 → 19 taken 256 times.
✓ Branch 17 → 20 taken 282 times.
✓ Branch 17 → 21 taken 299 times.
✓ Branch 17 → 22 taken 309 times.
✗ Branch 17 → 38 not taken.
|
1387 | ans = -0.0100000000000000002_wp + ans * x |
| 1406 | end select | ||
| 1407 | case (5) | ||
| 1408 | 53855 | select case (j_minus_i) | |
| 1409 | case (5) | ||
| 1410 | ans = -0.122499999999999998_wp | ||
| 1411 | 241 | ans = 0.25_wp + ans * x | |
| 1412 | 241 | ans = ans * x | |
| 1413 | 241 | ans = ans * x | |
| 1414 | 241 | ans = ans * x | |
| 1415 | 241 | ans = ans * x | |
| 1416 | case (4) | ||
| 1417 | ans = 0.177499999999999991_wp | ||
| 1418 | 256 | ans = -0.362499999999999989_wp + ans * x | |
| 1419 | 256 | ans = -0.225000000000000006_wp + ans * x | |
| 1420 | 256 | ans = 0.275000000000000022_wp + ans * x | |
| 1421 | 256 | ans = 0.387500000000000011_wp + ans * x | |
| 1422 | 256 | ans = 0.127500000000000002_wp + ans * x | |
| 1423 | case (3) | ||
| 1424 | ans = -0.197500000000000009_wp | ||
| 1425 | 282 | ans = 0.525000000000000022_wp + ans * x | |
| 1426 | 282 | ans = 0.100000000000000006_wp + ans * x | |
| 1427 | 282 | ans = -0.800000000000000044_wp + ans * x | |
| 1428 | 282 | ans = -0.299999999999999989_wp + ans * x | |
| 1429 | 282 | ans = 0.380000000000000004_wp + ans * x | |
| 1430 | case (2) | ||
| 1431 | ans = 0.135833333333333334_wp | ||
| 1432 | 299 | ans = -0.462500000000000022_wp + ans * x | |
| 1433 | 299 | ans = 0.225000000000000006_wp + ans * x | |
| 1434 | 299 | ans = 0.675000000000000044_wp + ans * x | |
| 1435 | 299 | ans = -0.487499999999999989_wp + ans * x | |
| 1436 | 299 | ans = -0.292499999999999982_wp + ans * x | |
| 1437 | case (1) | ||
| 1438 | ans = -0.0516666666666666663_wp | ||
| 1439 | 309 | ans = 0.216666666666666674_wp + ans * x | |
| 1440 | 309 | ans = -0.266666666666666663_wp + ans * x | |
| 1441 | 309 | ans = -0.0666666666666666657_wp + ans * x | |
| 1442 | 309 | ans = 0.366666666666666641_wp + ans * x | |
| 1443 | 309 | ans = -0.206666666666666665_wp + ans * x | |
| 1444 | case (0) | ||
| 1445 | ans = 0.00833333333333333322_wp | ||
| 1446 | 306 | ans = -0.0416666666666666644_wp + ans * x | |
| 1447 | 306 | ans = 0.0833333333333333287_wp + ans * x | |
| 1448 | 306 | ans = -0.0833333333333333287_wp + ans * x | |
| 1449 | 306 | ans = 0.0416666666666666644_wp + ans * x | |
| 1450 |
6/7✓ Branch 23 → 24 taken 241 times.
✓ Branch 23 → 25 taken 256 times.
✓ Branch 23 → 26 taken 282 times.
✓ Branch 23 → 27 taken 299 times.
✓ Branch 23 → 28 taken 309 times.
✓ Branch 23 → 29 taken 306 times.
✗ Branch 23 → 38 not taken.
|
1693 | ans = -0.00833333333333333322_wp + ans * x |
| 1451 | end select | ||
| 1452 | case (6) | ||
| 1453 |
7/8✓ Branch 2 → 3 taken 241 times.
✓ Branch 2 → 5 taken 497 times.
✓ Branch 2 → 8 taken 779 times.
✓ Branch 2 → 12 taken 1078 times.
✓ Branch 2 → 17 taken 1387 times.
✓ Branch 2 → 23 taken 1693 times.
✓ Branch 2 → 30 taken 51921 times.
✗ Branch 2 → 38 not taken.
|
57596 | select case (j_minus_i) |
| 1454 | case (6) | ||
| 1455 | ans = 0.00833333333333333322_wp | ||
| 1456 | 7353 | ans = ans * x | |
| 1457 | 7353 | ans = ans * x | |
| 1458 | 7353 | ans = ans * x | |
| 1459 | 7353 | ans = ans * x | |
| 1460 | 7353 | ans = ans * x | |
| 1461 | case (5) | ||
| 1462 | ans = -0.0500000000000000028_wp | ||
| 1463 | 7385 | ans = 0.0416666666666666644_wp + ans * x | |
| 1464 | 7385 | ans = 0.0833333333333333287_wp + ans * x | |
| 1465 | 7385 | ans = 0.0833333333333333287_wp + ans * x | |
| 1466 | 7385 | ans = 0.0416666666666666644_wp + ans * x | |
| 1467 | 7385 | ans = 0.00833333333333333322_wp + ans * x | |
| 1468 | case (4) | ||
| 1469 | ans = 0.125_wp | ||
| 1470 | 7416 | ans = -0.208333333333333343_wp + ans * x | |
| 1471 | 7416 | ans = -0.25_wp + ans * x | |
| 1472 | 7416 | ans = 0.0833333333333333287_wp + ans * x | |
| 1473 | 7416 | ans = 0.375_wp + ans * x | |
| 1474 | 7416 | ans = 0.208333333333333343_wp + ans * x | |
| 1475 | case (3) | ||
| 1476 | ans = -0.166666666666666657_wp | ||
| 1477 | 7449 | ans = 0.416666666666666685_wp + ans * x | |
| 1478 | 7449 | ans = 0.166666666666666657_wp + ans * x | |
| 1479 | 7449 | ans = -0.66666666666666663_wp + ans * x | |
| 1480 | 7449 | ans = -0.416666666666666685_wp + ans * x | |
| 1481 | 7449 | ans = 0.333333333333333315_wp + ans * x | |
| 1482 | case (2) | ||
| 1483 | ans = 0.125_wp | ||
| 1484 | 7465 | ans = -0.416666666666666685_wp + ans * x | |
| 1485 | 7465 | ans = 0.166666666666666657_wp + ans * x | |
| 1486 | 7465 | ans = 0.66666666666666663_wp + ans * x | |
| 1487 | 7465 | ans = -0.416666666666666685_wp + ans * x | |
| 1488 | 7465 | ans = -0.333333333333333315_wp + ans * x | |
| 1489 | case (1) | ||
| 1490 | ans = -0.0500000000000000028_wp | ||
| 1491 | 7443 | ans = 0.208333333333333343_wp + ans * x | |
| 1492 | 7443 | ans = -0.25_wp + ans * x | |
| 1493 | 7443 | ans = -0.0833333333333333287_wp + ans * x | |
| 1494 | 7443 | ans = 0.375_wp + ans * x | |
| 1495 | 7443 | ans = -0.208333333333333343_wp + ans * x | |
| 1496 | case (0) | ||
| 1497 | ans = 0.00833333333333333322_wp | ||
| 1498 | 7410 | ans = -0.0416666666666666644_wp + ans * x | |
| 1499 | 7410 | ans = 0.0833333333333333287_wp + ans * x | |
| 1500 | 7410 | ans = -0.0833333333333333287_wp + ans * x | |
| 1501 | 7410 | ans = 0.0416666666666666644_wp + ans * x | |
| 1502 |
7/8✓ Branch 30 → 31 taken 7353 times.
✓ Branch 30 → 32 taken 7385 times.
✓ Branch 30 → 33 taken 7416 times.
✓ Branch 30 → 34 taken 7449 times.
✓ Branch 30 → 35 taken 7465 times.
✓ Branch 30 → 36 taken 7443 times.
✓ Branch 30 → 37 taken 7410 times.
✗ Branch 30 → 38 not taken.
|
51921 | ans = -0.00833333333333333322_wp + ans * x |
| 1503 | end select | ||
| 1504 | end select | ||
| 1505 | |||
| 1506 |
1/2✗ Branch 38 → 39 not taken.
✓ Branch 38 → 40 taken 57596 times.
|
57596 | if (scaled) then |
| 1507 | ✗ | ans = 7 * ans / (1 + j) | |
| 1508 | end if | ||
| 1509 | |||
| 1510 | 57596 | end function | |
| 1511 | |||
| 1512 | 32842914 | pure function bspline_eval_7(x, j, j_minus_i, scaled) result(ans) | |
| 1513 | !$acc routine seq | ||
| 1514 | |||
| 1515 | real(wp), intent(in) :: x | ||
| 1516 | integer, intent(in) :: j, j_minus_i | ||
| 1517 | logical, intent(in) :: scaled | ||
| 1518 | real(wp) :: ans | ||
| 1519 | |||
| 1520 | ans = 0._wp | ||
| 1521 | |||
| 1522 | 33661593 | select case (j) | |
| 1523 | case (0) | ||
| 1524 | 3281446 | select case (j_minus_i) | |
| 1525 | case (0) | ||
| 1526 | ans = -1_wp | ||
| 1527 | 738305 | ans = 7_wp + ans * x | |
| 1528 | 738305 | ans = -21_wp + ans * x | |
| 1529 | 738305 | ans = 35_wp + ans * x | |
| 1530 | 738305 | ans = -35_wp + ans * x | |
| 1531 | 738305 | ans = 21_wp + ans * x | |
| 1532 | 738305 | ans = -7_wp + ans * x | |
| 1533 |
2/2✓ Branch 3 → 4 taken 738305 times.
✓ Branch 3 → 47 taken 80374 times.
|
818679 | ans = 1_wp + ans * x |
| 1534 | end select | ||
| 1535 | case (1) | ||
| 1536 | 5093055 | select case (j_minus_i) | |
| 1537 | case (1) | ||
| 1538 | ans = 1.984375_wp | ||
| 1539 | 827805 | ans = -13.78125_wp + ans * x | |
| 1540 | 827805 | ans = 40.6875_wp + ans * x | |
| 1541 | 827805 | ans = -65.625_wp + ans * x | |
| 1542 | 827805 | ans = 61.25_wp + ans * x | |
| 1543 | 827805 | ans = -31.5_wp + ans * x | |
| 1544 | 827805 | ans = 7_wp + ans * x | |
| 1545 | 827805 | ans = ans * x | |
| 1546 | case (0) | ||
| 1547 | ans = -0.015625_wp | ||
| 1548 | 827765 | ans = 0.109375_wp + ans * x | |
| 1549 | 827765 | ans = -0.328125_wp + ans * x | |
| 1550 | 827765 | ans = 0.546875_wp + ans * x | |
| 1551 | 827765 | ans = -0.546875_wp + ans * x | |
| 1552 | 827765 | ans = 0.328125_wp + ans * x | |
| 1553 | 827765 | ans = -0.109375_wp + ans * x | |
| 1554 |
3/3✓ Branch 5 → 6 taken 827805 times.
✓ Branch 5 → 7 taken 827765 times.
✓ Branch 5 → 47 taken 68892 times.
|
1724462 | ans = 0.015625_wp + ans * x |
| 1555 | end select | ||
| 1556 | case (2) | ||
| 1557 | 6725763 | select case (j_minus_i) | |
| 1558 | case (2) | ||
| 1559 | ans = -1.45518261316872421_wp | ||
| 1560 | 827805 | ans = 9.88695987654321051_wp + ans * x | |
| 1561 | 827805 | ans = -27.9513888888888893_wp + ans * x | |
| 1562 | 827805 | ans = 41.3194444444444429_wp + ans * x | |
| 1563 | 827805 | ans = -32.0833333333333357_wp + ans * x | |
| 1564 | 827805 | ans = 10.5_wp + ans * x | |
| 1565 | 827805 | ans = ans * x | |
| 1566 | 827805 | ans = ans * x | |
| 1567 | case (1) | ||
| 1568 | ans = 0.0448173868312757226_wp | ||
| 1569 | 827765 | ans = -0.299318415637860102_wp + ans * x | |
| 1570 | 827765 | ans = 0.811535493827160503_wp + ans * x | |
| 1571 | 827765 | ans = -1.0644933127572016_wp + ans * x | |
| 1572 | 827765 | ans = 0.488361625514403319_wp + ans * x | |
| 1573 | 827765 | ans = 0.398341049382716028_wp + ans * x | |
| 1574 | 827765 | ans = -0.593685699588477389_wp + ans * x | |
| 1575 | 827765 | ans = 0.216499485596707814_wp + ans * x | |
| 1576 | case (0) | ||
| 1577 | ans = -0.00205761316872428001_wp | ||
| 1578 | 827808 | ans = 0.0144032921810699592_wp + ans * x | |
| 1579 | 827808 | ans = -0.0432098765432098741_wp + ans * x | |
| 1580 | 827808 | ans = 0.0720164609053497995_wp + ans * x | |
| 1581 | 827808 | ans = -0.0720164609053497995_wp + ans * x | |
| 1582 | 827808 | ans = 0.0432098765432098741_wp + ans * x | |
| 1583 | 827808 | ans = -0.0144032921810699592_wp + ans * x | |
| 1584 |
4/4✓ Branch 8 → 9 taken 827805 times.
✓ Branch 8 → 10 taken 827765 times.
✓ Branch 8 → 11 taken 827808 times.
✓ Branch 8 → 47 taken 57410 times.
|
2540788 | ans = 0.00205761316872428001_wp + ans * x |
| 1585 | end select | ||
| 1586 | case (3) | ||
| 1587 | 8358554 | select case (j_minus_i) | |
| 1588 | case (3) | ||
| 1589 | ans = 0.611746077674897082_wp | ||
| 1590 | 827805 | ans = -3.94627700617283939_wp + ans * x | |
| 1591 | 827805 | ans = 10.0868055555555554_wp + ans * x | |
| 1592 | 827805 | ans = -12.1527777777777786_wp + ans * x | |
| 1593 | 827805 | ans = 5.83333333333333304_wp + ans * x | |
| 1594 | 827805 | ans = ans * x | |
| 1595 | 827805 | ans = ans * x | |
| 1596 | 827805 | ans = ans * x | |
| 1597 | case (2) | ||
| 1598 | ans = -0.0549205889917695478_wp | ||
| 1599 | 827765 | ans = 0.335945537551440354_wp + ans * x | |
| 1600 | 827765 | ans = -0.744188850308642014_wp + ans * x | |
| 1601 | 827765 | ans = 0.498207626028806583_wp + ans * x | |
| 1602 | 827765 | ans = 0.575850372942386834_wp + ans * x | |
| 1603 | 827765 | ans = -0.896098572530864224_wp + ans * x | |
| 1604 | 827765 | ans = -0.0725228266460905407_wp + ans * x | |
| 1605 | 827765 | ans = 0.432830182613168746_wp + ans * x | |
| 1606 | case (1) | ||
| 1607 | ans = 0.00757941100823045309_wp | ||
| 1608 | 827808 | ans = -0.0484985853909465012_wp + ans * x | |
| 1609 | 827808 | ans = 0.11815200617283951_wp + ans * x | |
| 1610 | 827808 | ans = -0.105774176954732513_wp + ans * x | |
| 1611 | 827808 | ans = -0.0765174897119341585_wp + ans * x | |
| 1612 | 827808 | ans = 0.264660493827160503_wp + ans * x | |
| 1613 | 827808 | ans = -0.234053497942386834_wp + ans * x | |
| 1614 | 827808 | ans = 0.0751028806584362191_wp + ans * x | |
| 1615 | case (0) | ||
| 1616 | ans = -0.000651041666666666631_wp | ||
| 1617 | 827864 | ans = 0.00455729166666666696_wp + ans * x | |
| 1618 | 827864 | ans = -0.013671875_wp + ans * x | |
| 1619 | 827864 | ans = 0.0227864583333333322_wp + ans * x | |
| 1620 | 827864 | ans = -0.0227864583333333322_wp + ans * x | |
| 1621 | 827864 | ans = 0.013671875_wp + ans * x | |
| 1622 | 827864 | ans = -0.00455729166666666696_wp + ans * x | |
| 1623 |
5/5✓ Branch 12 → 13 taken 827805 times.
✓ Branch 12 → 14 taken 827765 times.
✓ Branch 12 → 15 taken 827808 times.
✓ Branch 12 → 16 taken 827864 times.
✓ Branch 12 → 47 taken 45928 times.
|
3357170 | ans = 0.000651041666666666631_wp + ans * x |
| 1624 | end select | ||
| 1625 | case (4) | ||
| 1626 | 9991372 | select case (j_minus_i) | |
| 1627 | case (4) | ||
| 1628 | ans = -0.168760223765432094_wp | ||
| 1629 | 827805 | ans = 0.973761574074074043_wp + ans * x | |
| 1630 | 827805 | ans = -1.99791666666666656_wp + ans * x | |
| 1631 | 827805 | ans = 1.45833333333333326_wp + ans * x | |
| 1632 | 827805 | ans = ans * x | |
| 1633 | 827805 | ans = ans * x | |
| 1634 | 827805 | ans = ans * x | |
| 1635 | 827805 | ans = ans * x | |
| 1636 | case (3) | ||
| 1637 | ans = 0.0395731095679012351_wp | ||
| 1638 | 827765 | ans = -0.207559992283950612_wp + ans * x | |
| 1639 | 827765 | ans = 0.300688078703703676_wp + ans * x | |
| 1640 | 827765 | ans = 0.168565779320987652_wp + ans * x | |
| 1641 | 827765 | ans = -0.577209683641975335_wp + ans * x | |
| 1642 | 827765 | ans = -0.16670775462962964_wp + ans * x | |
| 1643 | 827765 | ans = 0.504997878086419716_wp + ans * x | |
| 1644 | 827765 | ans = 0.265418016975308646_wp + ans * x | |
| 1645 | case (2) | ||
| 1646 | ans = -0.0125102237654320988_wp | ||
| 1647 | 827808 | ans = 0.0694517746913580203_wp + ans * x | |
| 1648 | 827808 | ans = -0.11363657407407407_wp + ans * x | |
| 1649 | 827808 | ans = -0.0563348765432098789_wp + ans * x | |
| 1650 | 827808 | ans = 0.33779320987654321_wp + ans * x | |
| 1651 | 827808 | ans = -0.162425925925925918_wp + ans * x | |
| 1652 | 827808 | ans = -0.350691358024691369_wp + ans * x | |
| 1653 | 827808 | ans = 0.327765432098765408_wp + ans * x | |
| 1654 | case (1) | ||
| 1655 | ans = 0.00292187499999999999_wp | ||
| 1656 | 827864 | ans = -0.018119791666666666_wp + ans * x | |
| 1657 | 827864 | ans = 0.0403593750000000029_wp + ans * x | |
| 1658 | 827864 | ans = -0.0205989583333333337_wp + ans * x | |
| 1659 | 827864 | ans = -0.0727343750000000039_wp + ans * x | |
| 1660 | 827864 | ans = 0.155640625000000005_wp + ans * x | |
| 1661 | 827864 | ans = -0.126546875000000003_wp + ans * x | |
| 1662 | 827864 | ans = 0.0394114583333333365_wp + ans * x | |
| 1663 | case (0) | ||
| 1664 | ans = -0.000333333333333333322_wp | ||
| 1665 | 827891 | ans = 0.00233333333333333353_wp + ans * x | |
| 1666 | 827891 | ans = -0.00700000000000000015_wp + ans * x | |
| 1667 | 827891 | ans = 0.0116666666666666672_wp + ans * x | |
| 1668 | 827891 | ans = -0.0116666666666666672_wp + ans * x | |
| 1669 | 827891 | ans = 0.00700000000000000015_wp + ans * x | |
| 1670 | 827891 | ans = -0.00233333333333333353_wp + ans * x | |
| 1671 |
6/6✓ Branch 17 → 18 taken 827805 times.
✓ Branch 17 → 19 taken 827765 times.
✓ Branch 17 → 20 taken 827808 times.
✓ Branch 17 → 21 taken 827864 times.
✓ Branch 17 → 22 taken 827891 times.
✓ Branch 17 → 47 taken 34446 times.
|
4173579 | ans = 0.000333333333333333322_wp + ans * x |
| 1672 | end select | ||
| 1673 | case (5) | ||
| 1674 | 11624140 | select case (j_minus_i) | |
| 1675 | case (5) | ||
| 1676 | ans = 0.0312245370370370368_wp | ||
| 1677 | 827805 | ans = -0.142916666666666664_wp + ans * x | |
| 1678 | 827805 | ans = 0.174999999999999989_wp + ans * x | |
| 1679 | 827805 | ans = ans * x | |
| 1680 | 827805 | ans = ans * x | |
| 1681 | 827805 | ans = ans * x | |
| 1682 | 827805 | ans = ans * x | |
| 1683 | 827805 | ans = ans * x | |
| 1684 | case (4) | ||
| 1685 | ans = -0.0187754629629629625_wp | ||
| 1686 | 827765 | ans = 0.0756550925925925932_wp + ans * x | |
| 1687 | 827765 | ans = -0.0267847222222222237_wp + ans * x | |
| 1688 | 827765 | ans = -0.175891203703703702_wp + ans * x | |
| 1689 | 827765 | ans = -0.0154745370370370366_wp + ans * x | |
| 1690 | 827765 | ans = 0.261965277777777783_wp + ans * x | |
| 1691 | 827765 | ans = 0.236071759259259273_wp + ans * x | |
| 1692 | 827765 | ans = 0.0633078703703703755_wp + ans * x | |
| 1693 | case (3) | ||
| 1694 | ans = 0.0124745370370370375_wp | ||
| 1695 | 827808 | ans = -0.0557731481481481481_wp + ans * x | |
| 1696 | 827808 | ans = 0.0328611111111111118_wp + ans * x | |
| 1697 | 827808 | ans = 0.167870370370370364_wp + ans * x | |
| 1698 | 827808 | ans = -0.130925925925925918_wp + ans * x | |
| 1699 | 827808 | ans = -0.36711111111111111_wp + ans * x | |
| 1700 | 827808 | ans = 0.198592592592592598_wp + ans * x | |
| 1701 | 827808 | ans = 0.400074074074074082_wp + ans * x | |
| 1702 | case (2) | ||
| 1703 | ans = -0.00604398148148148177_wp | ||
| 1704 | 827864 | ans = 0.0315486111111111106_wp + ans * x | |
| 1705 | 827864 | ans = -0.0398125000000000007_wp + ans * x | |
| 1706 | 827864 | ans = -0.0678124999999999978_wp + ans * x | |
| 1707 | 827864 | ans = 0.190312499999999996_wp + ans * x | |
| 1708 | 827864 | ans = 0.00131250000000000008_wp + ans * x | |
| 1709 | 827864 | ans = -0.339937500000000004_wp + ans * x | |
| 1710 | 827864 | ans = 0.258062499999999972_wp + ans * x | |
| 1711 | case (1) | ||
| 1712 | ans = 0.00176851851851851844_wp | ||
| 1713 | 827891 | ans = -0.0107592592592592601_wp + ans * x | |
| 1714 | 827891 | ans = 0.0225555555555555544_wp + ans * x | |
| 1715 | 827891 | ans = -0.00518518518518518504_wp + ans * x | |
| 1716 | 827891 | ans = -0.0596296296296296297_wp + ans * x | |
| 1717 | 827891 | ans = 0.113555555555555562_wp + ans * x | |
| 1718 | 827891 | ans = -0.0897037037037037022_wp + ans * x | |
| 1719 | 827891 | ans = 0.027629629629629629_wp + ans * x | |
| 1720 | case (0) | ||
| 1721 | ans = -0.00023148148148148149_wp | ||
| 1722 | 827891 | ans = 0.00162037037037037032_wp + ans * x | |
| 1723 | 827891 | ans = -0.00486111111111111119_wp + ans * x | |
| 1724 | 827891 | ans = 0.0081018518518518514_wp + ans * x | |
| 1725 | 827891 | ans = -0.0081018518518518514_wp + ans * x | |
| 1726 | 827891 | ans = 0.00486111111111111119_wp + ans * x | |
| 1727 | 827891 | ans = -0.00162037037037037032_wp + ans * x | |
| 1728 |
7/7✓ Branch 23 → 24 taken 827805 times.
✓ Branch 23 → 25 taken 827765 times.
✓ Branch 23 → 26 taken 827808 times.
✓ Branch 23 → 27 taken 827864 times.
✓ Branch 23 → 28 taken 827891 times.
✓ Branch 23 → 29 taken 827891 times.
✓ Branch 23 → 47 taken 22964 times.
|
4989988 | ans = 0.00023148148148148149_wp + ans * x |
| 1729 | end select | ||
| 1730 | case (6) | ||
| 1731 | 16066053 | select case (j_minus_i) | |
| 1732 | case (6) | ||
| 1733 | ans = -0.00360119047619047615_wp | ||
| 1734 | 827805 | ans = 0.00972222222222222238_wp + ans * x | |
| 1735 | 827805 | ans = ans * x | |
| 1736 | 827805 | ans = ans * x | |
| 1737 | 827805 | ans = ans * x | |
| 1738 | 827805 | ans = ans * x | |
| 1739 | 827805 | ans = ans * x | |
| 1740 | 827805 | ans = ans * x | |
| 1741 | case (5) | ||
| 1742 | ans = 0.0061210317460317458_wp | ||
| 1743 | 827765 | ans = -0.015486111111111112_wp + ans * x | |
| 1744 | 827765 | ans = -0.017291666666666667_wp + ans * x | |
| 1745 | 827765 | ans = 0.0197916666666666657_wp + ans * x | |
| 1746 | 827765 | ans = 0.0684027777777777846_wp + ans * x | |
| 1747 | 827765 | ans = 0.0702083333333333309_wp + ans * x | |
| 1748 | 827765 | ans = 0.0331250000000000017_wp + ans * x | |
| 1749 | 827765 | ans = 0.0061210317460317458_wp + ans * x | |
| 1750 | case (4) | ||
| 1751 | ans = -0.00846230158730158777_wp | ||
| 1752 | 827808 | ans = 0.0273611111111111104_wp + ans * x | |
| 1753 | 827808 | ans = 0.0183333333333333334_wp + ans * x | |
| 1754 | 827808 | ans = -0.0847222222222222265_wp + ans * x | |
| 1755 | 827808 | ans = -0.120833333333333334_wp + ans * x | |
| 1756 | 827808 | ans = 0.117499999999999993_wp + ans * x | |
| 1757 | 827808 | ans = 0.321388888888888891_wp + ans * x | |
| 1758 | 827808 | ans = 0.170992063492063501_wp + ans * x | |
| 1759 | case (3) | ||
| 1760 | ans = 0.00774140211640211677_wp | ||
| 1761 | 827864 | ans = -0.0318750000000000006_wp + ans * x | |
| 1762 | 827864 | ans = 0.0047916666666666663_wp + ans * x | |
| 1763 | 827864 | ans = 0.121180555555555555_wp + ans * x | |
| 1764 | 827864 | ans = -0.0253472222222222224_wp + ans * x | |
| 1765 | 827864 | ans = -0.337291666666666656_wp + ans * x | |
| 1766 | 827864 | ans = 0.0515972222222222249_wp + ans * x | |
| 1767 | 827864 | ans = 0.44155753968253969_wp + ans * x | |
| 1768 | case (2) | ||
| 1769 | ans = -0.0044113756613756612_wp | ||
| 1770 | 827891 | ans = 0.0223148148148148151_wp + ans * x | |
| 1771 | 827891 | ans = -0.0238888888888888901_wp + ans * x | |
| 1772 | 827891 | ans = -0.0620370370370370364_wp + ans * x | |
| 1773 | 827891 | ans = 0.14074074074074075_wp + ans * x | |
| 1774 | 827891 | ans = 0.0461111111111111097_wp + ans * x | |
| 1775 | 827891 | ans = -0.327407407407407425_wp + ans * x | |
| 1776 | 827891 | ans = 0.232354497354497341_wp + ans * x | |
| 1777 | case (1) | ||
| 1778 | ans = 0.00142195767195767197_wp | ||
| 1779 | 827891 | ans = -0.00856481481481481503_wp + ans * x | |
| 1780 | 827891 | ans = 0.0173611111111111119_wp + ans * x | |
| 1781 | 827891 | ans = -0.00115740740740740734_wp + ans * x | |
| 1782 | 827891 | ans = -0.0543981481481481469_wp + ans * x | |
| 1783 | 827891 | ans = 0.0993055555555555497_wp + ans * x | |
| 1784 | 827891 | ans = -0.0775462962962962937_wp + ans * x | |
| 1785 | 827891 | ans = 0.0237764550264550276_wp + ans * x | |
| 1786 | case (0) | ||
| 1787 | ans = -0.000198412698412698413_wp | ||
| 1788 | 827841 | ans = 0.00138888888888888894_wp + ans * x | |
| 1789 | 827841 | ans = -0.00416666666666666661_wp + ans * x | |
| 1790 | 827841 | ans = 0.00694444444444444406_wp + ans * x | |
| 1791 | 827841 | ans = -0.00694444444444444406_wp + ans * x | |
| 1792 | 827841 | ans = 0.00416666666666666661_wp + ans * x | |
| 1793 | 827841 | ans = -0.00138888888888888894_wp + ans * x | |
| 1794 |
8/8✓ Branch 30 → 31 taken 827805 times.
✓ Branch 30 → 32 taken 827765 times.
✓ Branch 30 → 33 taken 827808 times.
✓ Branch 30 → 34 taken 827864 times.
✓ Branch 30 → 35 taken 827891 times.
✓ Branch 30 → 36 taken 827891 times.
✓ Branch 30 → 37 taken 827841 times.
✓ Branch 30 → 47 taken 11482 times.
|
5806347 | ans = 0.000198412698412698413_wp + ans * x |
| 1795 | end select | ||
| 1796 | case (7) | ||
| 1797 |
8/9✓ Branch 2 → 3 taken 818679 times.
✓ Branch 2 → 5 taken 1724462 times.
✓ Branch 2 → 8 taken 2540788 times.
✓ Branch 2 → 12 taken 3357170 times.
✓ Branch 2 → 17 taken 4173579 times.
✓ Branch 2 → 23 taken 4989988 times.
✓ Branch 2 → 30 taken 5806347 times.
✓ Branch 2 → 38 taken 9431901 times.
✗ Branch 2 → 47 not taken.
|
32842914 | select case (j_minus_i) |
| 1798 | case (7) | ||
| 1799 | ans = 0.000198412698412698413_wp | ||
| 1800 | 1178859 | ans = ans * x | |
| 1801 | 1178859 | ans = ans * x | |
| 1802 | 1178859 | ans = ans * x | |
| 1803 | 1178859 | ans = ans * x | |
| 1804 | 1178859 | ans = ans * x | |
| 1805 | 1178859 | ans = ans * x | |
| 1806 | 1178859 | ans = ans * x | |
| 1807 | case (6) | ||
| 1808 | ans = -0.00138888888888888894_wp | ||
| 1809 | 1178846 | ans = 0.00138888888888888894_wp + ans * x | |
| 1810 | 1178846 | ans = 0.00416666666666666661_wp + ans * x | |
| 1811 | 1178846 | ans = 0.00694444444444444406_wp + ans * x | |
| 1812 | 1178846 | ans = 0.00694444444444444406_wp + ans * x | |
| 1813 | 1178846 | ans = 0.00416666666666666661_wp + ans * x | |
| 1814 | 1178846 | ans = 0.00138888888888888894_wp + ans * x | |
| 1815 | 1178846 | ans = 0.000198412698412698413_wp + ans * x | |
| 1816 | case (5) | ||
| 1817 | ans = 0.00416666666666666661_wp | ||
| 1818 | 1178887 | ans = -0.00833333333333333322_wp + ans * x | |
| 1819 | 1178887 | ans = -0.0166666666666666664_wp + ans * x | |
| 1820 | 1178887 | ans = 2.69880267346701395e-79_wp + ans * x | |
| 1821 | 1178887 | ans = 0.0555555555555555525_wp + ans * x | |
| 1822 | 1178887 | ans = 0.100000000000000006_wp + ans * x | |
| 1823 | 1178887 | ans = 0.077777777777777779_wp + ans * x | |
| 1824 | 1178887 | ans = 0.0238095238095238082_wp + ans * x | |
| 1825 | case (4) | ||
| 1826 | ans = -0.00694444444444444406_wp | ||
| 1827 | 1178996 | ans = 0.0208333333333333322_wp + ans * x | |
| 1828 | 1178996 | ans = 0.0208333333333333322_wp + ans * x | |
| 1829 | 1178996 | ans = -0.0625_wp + ans * x | |
| 1830 | 1178996 | ans = -0.131944444444444448_wp + ans * x | |
| 1831 | 1178996 | ans = 0.0625_wp + ans * x | |
| 1832 | 1178996 | ans = 0.34027777777777779_wp + ans * x | |
| 1833 | 1178996 | ans = 0.236309523809523803_wp + ans * x | |
| 1834 | case (3) | ||
| 1835 | ans = 0.00694444444444444406_wp | ||
| 1836 | 1179108 | ans = -0.0277777777777777762_wp + ans * x | |
| 1837 | 1179108 | ans = ans * x | |
| 1838 | 1179108 | ans = 0.111111111111111105_wp + ans * x | |
| 1839 | 1179108 | ans = ans * x | |
| 1840 | 1179108 | ans = -0.333333333333333315_wp + ans * x | |
| 1841 | 1179108 | ans = ans * x | |
| 1842 | 1179108 | ans = 0.479365079365079383_wp + ans * x | |
| 1843 | case (2) | ||
| 1844 | ans = -0.00416666666666666661_wp | ||
| 1845 | 1179142 | ans = 0.0208333333333333322_wp + ans * x | |
| 1846 | 1179142 | ans = -0.0208333333333333322_wp + ans * x | |
| 1847 | 1179142 | ans = -0.0625_wp + ans * x | |
| 1848 | 1179142 | ans = 0.131944444444444448_wp + ans * x | |
| 1849 | 1179142 | ans = 0.0625_wp + ans * x | |
| 1850 | 1179142 | ans = -0.34027777777777779_wp + ans * x | |
| 1851 | 1179142 | ans = 0.236309523809523803_wp + ans * x | |
| 1852 | case (1) | ||
| 1853 | ans = 0.00138888888888888894_wp | ||
| 1854 | 1179057 | ans = -0.00833333333333333322_wp + ans * x | |
| 1855 | 1179057 | ans = 0.0166666666666666664_wp + ans * x | |
| 1856 | 1179057 | ans = 2.69880267346701395e-79_wp + ans * x | |
| 1857 | 1179057 | ans = -0.0555555555555555525_wp + ans * x | |
| 1858 | 1179057 | ans = 0.100000000000000006_wp + ans * x | |
| 1859 | 1179057 | ans = -0.077777777777777779_wp + ans * x | |
| 1860 | 1179057 | ans = 0.0238095238095238082_wp + ans * x | |
| 1861 | case (0) | ||
| 1862 | ans = -0.000198412698412698413_wp | ||
| 1863 | 1179006 | ans = 0.00138888888888888894_wp + ans * x | |
| 1864 | 1179006 | ans = -0.00416666666666666661_wp + ans * x | |
| 1865 | 1179006 | ans = 0.00694444444444444406_wp + ans * x | |
| 1866 | 1179006 | ans = -0.00694444444444444406_wp + ans * x | |
| 1867 | 1179006 | ans = 0.00416666666666666661_wp + ans * x | |
| 1868 | 1179006 | ans = -0.00138888888888888894_wp + ans * x | |
| 1869 |
8/9✓ Branch 38 → 39 taken 1178859 times.
✓ Branch 38 → 40 taken 1178846 times.
✓ Branch 38 → 41 taken 1178887 times.
✓ Branch 38 → 42 taken 1178996 times.
✓ Branch 38 → 43 taken 1179108 times.
✓ Branch 38 → 44 taken 1179142 times.
✓ Branch 38 → 45 taken 1179057 times.
✓ Branch 38 → 46 taken 1179006 times.
✗ Branch 38 → 47 not taken.
|
9431901 | ans = 0.000198412698412698413_wp + ans * x |
| 1870 | end select | ||
| 1871 | end select | ||
| 1872 | |||
| 1873 |
2/2✓ Branch 47 → 48 taken 7163872 times.
✓ Branch 47 → 49 taken 25679042 times.
|
32842914 | if (scaled) then |
| 1874 | 7163872 | ans = 8 * ans / (1 + j) | |
| 1875 | end if | ||
| 1876 | |||
| 1877 | 32842914 | end function | |
| 1878 | |||
| 1879 | 63344 | pure function bspline_eval_derivative_7(x, j, j_minus_i, scaled) result(ans) | |
| 1880 | !$acc routine seq | ||
| 1881 | |||
| 1882 | real(wp), intent(in) :: x | ||
| 1883 | integer, intent(in) :: j, j_minus_i | ||
| 1884 | logical, intent(in) :: scaled | ||
| 1885 | real(wp) :: ans | ||
| 1886 | |||
| 1887 | ans = 0._wp | ||
| 1888 | |||
| 1889 | 63558 | select case (j) | |
| 1890 | case (0) | ||
| 1891 | 867 | select case (j_minus_i) | |
| 1892 | case (0) | ||
| 1893 | ans = -7_wp | ||
| 1894 | 214 | ans = 42_wp + ans * x | |
| 1895 | 214 | ans = -105_wp + ans * x | |
| 1896 | 214 | ans = 140_wp + ans * x | |
| 1897 | 214 | ans = -105_wp + ans * x | |
| 1898 | 214 | ans = 42_wp + ans * x | |
| 1899 |
1/2✓ Branch 3 → 4 taken 214 times.
✗ Branch 3 → 47 not taken.
|
214 | ans = -7_wp + ans * x |
| 1900 | end select | ||
| 1901 | case (1) | ||
| 1902 | 1344 | select case (j_minus_i) | |
| 1903 | case (1) | ||
| 1904 | ans = 13.890625_wp | ||
| 1905 | 214 | ans = -82.6875_wp + ans * x | |
| 1906 | 214 | ans = 203.4375_wp + ans * x | |
| 1907 | 214 | ans = -262.5_wp + ans * x | |
| 1908 | 214 | ans = 183.75_wp + ans * x | |
| 1909 | 214 | ans = -63_wp + ans * x | |
| 1910 | 214 | ans = 7_wp + ans * x | |
| 1911 | case (0) | ||
| 1912 | ans = -0.109375_wp | ||
| 1913 | 225 | ans = 0.65625_wp + ans * x | |
| 1914 | 225 | ans = -1.640625_wp + ans * x | |
| 1915 | 225 | ans = 2.1875_wp + ans * x | |
| 1916 | 225 | ans = -1.640625_wp + ans * x | |
| 1917 | 225 | ans = 0.65625_wp + ans * x | |
| 1918 |
2/3✓ Branch 5 → 6 taken 214 times.
✓ Branch 5 → 7 taken 225 times.
✗ Branch 5 → 47 not taken.
|
439 | ans = -0.109375_wp + ans * x |
| 1919 | end select | ||
| 1920 | case (2) | ||
| 1921 | 1860 | select case (j_minus_i) | |
| 1922 | case (2) | ||
| 1923 | ans = -10.1862782921810702_wp | ||
| 1924 | 214 | ans = 59.3217592592592595_wp + ans * x | |
| 1925 | 214 | ans = -139.756944444444457_wp + ans * x | |
| 1926 | 214 | ans = 165.277777777777771_wp + ans * x | |
| 1927 | 214 | ans = -96.25_wp + ans * x | |
| 1928 | 214 | ans = 21_wp + ans * x | |
| 1929 | 214 | ans = ans * x | |
| 1930 | case (1) | ||
| 1931 | ans = 0.313721707818930051_wp | ||
| 1932 | 225 | ans = -1.79591049382716039_wp + ans * x | |
| 1933 | 225 | ans = 4.05767746913580218_wp + ans * x | |
| 1934 | 225 | ans = -4.25797325102880642_wp + ans * x | |
| 1935 | 225 | ans = 1.46508487654320985_wp + ans * x | |
| 1936 | 225 | ans = 0.796682098765432056_wp + ans * x | |
| 1937 | 225 | ans = -0.593685699588477389_wp + ans * x | |
| 1938 | case (0) | ||
| 1939 | ans = -0.0144032921810699592_wp | ||
| 1940 | 252 | ans = 0.0864197530864197483_wp + ans * x | |
| 1941 | 252 | ans = -0.216049382716049371_wp + ans * x | |
| 1942 | 252 | ans = 0.288065843621399198_wp + ans * x | |
| 1943 | 252 | ans = -0.216049382716049371_wp + ans * x | |
| 1944 | 252 | ans = 0.0864197530864197483_wp + ans * x | |
| 1945 |
3/4✓ Branch 8 → 9 taken 214 times.
✓ Branch 8 → 10 taken 225 times.
✓ Branch 8 → 11 taken 252 times.
✗ Branch 8 → 47 not taken.
|
691 | ans = -0.0144032921810699592_wp + ans * x |
| 1946 | end select | ||
| 1947 | case (3) | ||
| 1948 | 2399 | select case (j_minus_i) | |
| 1949 | case (3) | ||
| 1950 | ans = 4.2822225437242798_wp | ||
| 1951 | 214 | ans = -23.6776620370370381_wp + ans * x | |
| 1952 | 214 | ans = 50.4340277777777786_wp + ans * x | |
| 1953 | 214 | ans = -48.6111111111111143_wp + ans * x | |
| 1954 | 214 | ans = 17.5_wp + ans * x | |
| 1955 | 214 | ans = ans * x | |
| 1956 | 214 | ans = ans * x | |
| 1957 | case (2) | ||
| 1958 | ans = -0.384444122942386834_wp | ||
| 1959 | 225 | ans = 2.01567322530864201_wp + ans * x | |
| 1960 | 225 | ans = -3.72094425154321007_wp + ans * x | |
| 1961 | 225 | ans = 1.99283050411522633_wp + ans * x | |
| 1962 | 225 | ans = 1.72755111882716039_wp + ans * x | |
| 1963 | 225 | ans = -1.79219714506172845_wp + ans * x | |
| 1964 | 225 | ans = -0.0725228266460905407_wp + ans * x | |
| 1965 | case (1) | ||
| 1966 | ans = 0.0530558770576131655_wp | ||
| 1967 | 252 | ans = -0.290991512345678993_wp + ans * x | |
| 1968 | 252 | ans = 0.590760030864197483_wp + ans * x | |
| 1969 | 252 | ans = -0.423096707818930051_wp + ans * x | |
| 1970 | 252 | ans = -0.229552469135802462_wp + ans * x | |
| 1971 | 252 | ans = 0.529320987654321007_wp + ans * x | |
| 1972 | 252 | ans = -0.234053497942386834_wp + ans * x | |
| 1973 | case (0) | ||
| 1974 | ans = -0.00455729166666666696_wp | ||
| 1975 | 264 | ans = 0.02734375_wp + ans * x | |
| 1976 | 264 | ans = -0.068359375_wp + ans * x | |
| 1977 | 264 | ans = 0.0911458333333333287_wp + ans * x | |
| 1978 | 264 | ans = -0.068359375_wp + ans * x | |
| 1979 | 264 | ans = 0.02734375_wp + ans * x | |
| 1980 |
4/5✓ Branch 12 → 13 taken 214 times.
✓ Branch 12 → 14 taken 225 times.
✓ Branch 12 → 15 taken 252 times.
✓ Branch 12 → 16 taken 264 times.
✗ Branch 12 → 47 not taken.
|
955 | ans = -0.00455729166666666696_wp + ans * x |
| 1981 | end select | ||
| 1982 | case (4) | ||
| 1983 | 2956 | select case (j_minus_i) | |
| 1984 | case (4) | ||
| 1985 | ans = -1.18132156635802477_wp | ||
| 1986 | 214 | ans = 5.84256944444444404_wp + ans * x | |
| 1987 | 214 | ans = -9.98958333333333393_wp + ans * x | |
| 1988 | 214 | ans = 5.83333333333333304_wp + ans * x | |
| 1989 | 214 | ans = ans * x | |
| 1990 | 214 | ans = ans * x | |
| 1991 | 214 | ans = ans * x | |
| 1992 | case (3) | ||
| 1993 | ans = 0.27701176697530866_wp | ||
| 1994 | 225 | ans = -1.24535995370370367_wp + ans * x | |
| 1995 | 225 | ans = 1.50344039351851855_wp + ans * x | |
| 1996 | 225 | ans = 0.674263117283950608_wp + ans * x | |
| 1997 | 225 | ans = -1.73162905092592601_wp + ans * x | |
| 1998 | 225 | ans = -0.33341550925925928_wp + ans * x | |
| 1999 | 225 | ans = 0.504997878086419716_wp + ans * x | |
| 2000 | case (2) | ||
| 2001 | ans = -0.0875715663580246967_wp | ||
| 2002 | 252 | ans = 0.416710648148148122_wp + ans * x | |
| 2003 | 252 | ans = -0.568182870370370408_wp + ans * x | |
| 2004 | 252 | ans = -0.225339506172839515_wp + ans * x | |
| 2005 | 252 | ans = 1.01337962962962957_wp + ans * x | |
| 2006 | 252 | ans = -0.324851851851851836_wp + ans * x | |
| 2007 | 252 | ans = -0.350691358024691369_wp + ans * x | |
| 2008 | case (1) | ||
| 2009 | ans = 0.0204531249999999991_wp | ||
| 2010 | 264 | ans = -0.108718750000000003_wp + ans * x | |
| 2011 | 264 | ans = 0.201796874999999987_wp + ans * x | |
| 2012 | 264 | ans = -0.0823958333333333348_wp + ans * x | |
| 2013 | 264 | ans = -0.218203124999999998_wp + ans * x | |
| 2014 | 264 | ans = 0.311281250000000009_wp + ans * x | |
| 2015 | 264 | ans = -0.126546875000000003_wp + ans * x | |
| 2016 | case (0) | ||
| 2017 | ans = -0.00233333333333333353_wp | ||
| 2018 | 275 | ans = 0.0140000000000000003_wp + ans * x | |
| 2019 | 275 | ans = -0.0350000000000000033_wp + ans * x | |
| 2020 | 275 | ans = 0.0466666666666666688_wp + ans * x | |
| 2021 | 275 | ans = -0.0350000000000000033_wp + ans * x | |
| 2022 | 275 | ans = 0.0140000000000000003_wp + ans * x | |
| 2023 |
5/6✓ Branch 17 → 18 taken 214 times.
✓ Branch 17 → 19 taken 225 times.
✓ Branch 17 → 20 taken 252 times.
✓ Branch 17 → 21 taken 264 times.
✓ Branch 17 → 22 taken 275 times.
✗ Branch 17 → 47 not taken.
|
1230 | ans = -0.00233333333333333353_wp + ans * x |
| 2024 | end select | ||
| 2025 | case (5) | ||
| 2026 | 3504 | select case (j_minus_i) | |
| 2027 | case (5) | ||
| 2028 | ans = 0.218571759259259257_wp | ||
| 2029 | 214 | ans = -0.85750000000000004_wp + ans * x | |
| 2030 | 214 | ans = 0.875_wp + ans * x | |
| 2031 | 214 | ans = ans * x | |
| 2032 | 214 | ans = ans * x | |
| 2033 | 214 | ans = ans * x | |
| 2034 | 214 | ans = ans * x | |
| 2035 | case (4) | ||
| 2036 | ans = -0.131428240740740748_wp | ||
| 2037 | 225 | ans = 0.453930555555555559_wp + ans * x | |
| 2038 | 225 | ans = -0.133923611111111118_wp + ans * x | |
| 2039 | 225 | ans = -0.70356481481481481_wp + ans * x | |
| 2040 | 225 | ans = -0.0464236111111111099_wp + ans * x | |
| 2041 | 225 | ans = 0.523930555555555566_wp + ans * x | |
| 2042 | 225 | ans = 0.236071759259259273_wp + ans * x | |
| 2043 | case (3) | ||
| 2044 | ans = 0.0873217592592592656_wp | ||
| 2045 | 252 | ans = -0.334638888888888875_wp + ans * x | |
| 2046 | 252 | ans = 0.164305555555555566_wp + ans * x | |
| 2047 | 252 | ans = 0.671481481481481457_wp + ans * x | |
| 2048 | 252 | ans = -0.392777777777777781_wp + ans * x | |
| 2049 | 252 | ans = -0.734222222222222221_wp + ans * x | |
| 2050 | 252 | ans = 0.198592592592592598_wp + ans * x | |
| 2051 | case (2) | ||
| 2052 | ans = -0.0423078703703703707_wp | ||
| 2053 | 264 | ans = 0.189291666666666664_wp + ans * x | |
| 2054 | 264 | ans = -0.199062500000000003_wp + ans * x | |
| 2055 | 264 | ans = -0.271249999999999991_wp + ans * x | |
| 2056 | 264 | ans = 0.570937499999999987_wp + ans * x | |
| 2057 | 264 | ans = 0.00262500000000000016_wp + ans * x | |
| 2058 | 264 | ans = -0.339937500000000004_wp + ans * x | |
| 2059 | case (1) | ||
| 2060 | ans = 0.0123796296296296293_wp | ||
| 2061 | 275 | ans = -0.0645555555555555605_wp + ans * x | |
| 2062 | 275 | ans = 0.112777777777777782_wp + ans * x | |
| 2063 | 275 | ans = -0.0207407407407407401_wp + ans * x | |
| 2064 | 275 | ans = -0.178888888888888875_wp + ans * x | |
| 2065 | 275 | ans = 0.227111111111111125_wp + ans * x | |
| 2066 | 275 | ans = -0.0897037037037037022_wp + ans * x | |
| 2067 | case (0) | ||
| 2068 | ans = -0.00162037037037037032_wp | ||
| 2069 | 282 | ans = 0.00972222222222222238_wp + ans * x | |
| 2070 | 282 | ans = -0.0243055555555555559_wp + ans * x | |
| 2071 | 282 | ans = 0.0324074074074074056_wp + ans * x | |
| 2072 | 282 | ans = -0.0243055555555555559_wp + ans * x | |
| 2073 | 282 | ans = 0.00972222222222222238_wp + ans * x | |
| 2074 |
6/7✓ Branch 23 → 24 taken 214 times.
✓ Branch 23 → 25 taken 225 times.
✓ Branch 23 → 26 taken 252 times.
✓ Branch 23 → 27 taken 264 times.
✓ Branch 23 → 28 taken 275 times.
✓ Branch 23 → 29 taken 282 times.
✗ Branch 23 → 47 not taken.
|
1512 | ans = -0.00162037037037037032_wp + ans * x |
| 2075 | end select | ||
| 2076 | case (6) | ||
| 2077 | 58517 | select case (j_minus_i) | |
| 2078 | case (6) | ||
| 2079 | ans = -0.0252083333333333326_wp | ||
| 2080 | 214 | ans = 0.0583333333333333343_wp + ans * x | |
| 2081 | 214 | ans = ans * x | |
| 2082 | 214 | ans = ans * x | |
| 2083 | 214 | ans = ans * x | |
| 2084 | 214 | ans = ans * x | |
| 2085 | 214 | ans = ans * x | |
| 2086 | case (5) | ||
| 2087 | ans = 0.042847222222222224_wp | ||
| 2088 | 225 | ans = -0.0929166666666666613_wp + ans * x | |
| 2089 | 225 | ans = -0.0864583333333333315_wp + ans * x | |
| 2090 | 225 | ans = 0.079166666666666663_wp + ans * x | |
| 2091 | 225 | ans = 0.205208333333333326_wp + ans * x | |
| 2092 | 225 | ans = 0.140416666666666662_wp + ans * x | |
| 2093 | 225 | ans = 0.0331250000000000017_wp + ans * x | |
| 2094 | case (4) | ||
| 2095 | ans = -0.0592361111111111144_wp | ||
| 2096 | 252 | ans = 0.164166666666666655_wp + ans * x | |
| 2097 | 252 | ans = 0.0916666666666666602_wp + ans * x | |
| 2098 | 252 | ans = -0.338888888888888906_wp + ans * x | |
| 2099 | 252 | ans = -0.362499999999999989_wp + ans * x | |
| 2100 | 252 | ans = 0.234999999999999987_wp + ans * x | |
| 2101 | 252 | ans = 0.321388888888888891_wp + ans * x | |
| 2102 | case (3) | ||
| 2103 | ans = 0.0541898148148148157_wp | ||
| 2104 | 264 | ans = -0.191250000000000003_wp + ans * x | |
| 2105 | 264 | ans = 0.023958333333333335_wp + ans * x | |
| 2106 | 264 | ans = 0.484722222222222221_wp + ans * x | |
| 2107 | 264 | ans = -0.0760416666666666602_wp + ans * x | |
| 2108 | 264 | ans = -0.674583333333333313_wp + ans * x | |
| 2109 | 264 | ans = 0.0515972222222222249_wp + ans * x | |
| 2110 | case (2) | ||
| 2111 | ans = -0.0308796296296296284_wp | ||
| 2112 | 275 | ans = 0.133888888888888891_wp + ans * x | |
| 2113 | 275 | ans = -0.11944444444444445_wp + ans * x | |
| 2114 | 275 | ans = -0.248148148148148145_wp + ans * x | |
| 2115 | 275 | ans = 0.422222222222222221_wp + ans * x | |
| 2116 | 275 | ans = 0.0922222222222222193_wp + ans * x | |
| 2117 | 275 | ans = -0.327407407407407425_wp + ans * x | |
| 2118 | case (1) | ||
| 2119 | ans = 0.00995370370370370419_wp | ||
| 2120 | 282 | ans = -0.0513888888888888867_wp + ans * x | |
| 2121 | 282 | ans = 0.0868055555555555525_wp + ans * x | |
| 2122 | 282 | ans = -0.00462962962962962937_wp + ans * x | |
| 2123 | 282 | ans = -0.163194444444444448_wp + ans * x | |
| 2124 | 282 | ans = 0.198611111111111099_wp + ans * x | |
| 2125 | 282 | ans = -0.0775462962962962937_wp + ans * x | |
| 2126 | case (0) | ||
| 2127 | ans = -0.00138888888888888894_wp | ||
| 2128 | 266 | ans = 0.00833333333333333322_wp + ans * x | |
| 2129 | 266 | ans = -0.0208333333333333322_wp + ans * x | |
| 2130 | 266 | ans = 0.0277777777777777762_wp + ans * x | |
| 2131 | 266 | ans = -0.0208333333333333322_wp + ans * x | |
| 2132 | 266 | ans = 0.00833333333333333322_wp + ans * x | |
| 2133 |
7/8✓ Branch 30 → 31 taken 214 times.
✓ Branch 30 → 32 taken 225 times.
✓ Branch 30 → 33 taken 252 times.
✓ Branch 30 → 34 taken 264 times.
✓ Branch 30 → 35 taken 275 times.
✓ Branch 30 → 36 taken 282 times.
✓ Branch 30 → 37 taken 266 times.
✗ Branch 30 → 47 not taken.
|
1778 | ans = -0.00138888888888888894_wp + ans * x |
| 2134 | end select | ||
| 2135 | case (7) | ||
| 2136 |
8/9✓ Branch 2 → 3 taken 214 times.
✓ Branch 2 → 5 taken 439 times.
✓ Branch 2 → 8 taken 691 times.
✓ Branch 2 → 12 taken 955 times.
✓ Branch 2 → 17 taken 1230 times.
✓ Branch 2 → 23 taken 1512 times.
✓ Branch 2 → 30 taken 1778 times.
✓ Branch 2 → 38 taken 56525 times.
✗ Branch 2 → 47 not taken.
|
63344 | select case (j_minus_i) |
| 2137 | case (7) | ||
| 2138 | ans = 0.00138888888888888894_wp | ||
| 2139 | 6976 | ans = ans * x | |
| 2140 | 6976 | ans = ans * x | |
| 2141 | 6976 | ans = ans * x | |
| 2142 | 6976 | ans = ans * x | |
| 2143 | 6976 | ans = ans * x | |
| 2144 | 6976 | ans = ans * x | |
| 2145 | case (6) | ||
| 2146 | ans = -0.00972222222222222238_wp | ||
| 2147 | 7003 | ans = 0.00833333333333333322_wp + ans * x | |
| 2148 | 7003 | ans = 0.0208333333333333322_wp + ans * x | |
| 2149 | 7003 | ans = 0.0277777777777777762_wp + ans * x | |
| 2150 | 7003 | ans = 0.0208333333333333322_wp + ans * x | |
| 2151 | 7003 | ans = 0.00833333333333333322_wp + ans * x | |
| 2152 | 7003 | ans = 0.00138888888888888894_wp + ans * x | |
| 2153 | case (5) | ||
| 2154 | ans = 0.0291666666666666671_wp | ||
| 2155 | 7038 | ans = -0.0500000000000000028_wp + ans * x | |
| 2156 | 7038 | ans = -0.0833333333333333287_wp + ans * x | |
| 2157 | 7038 | ans = 1.07952106938680558e-78_wp + ans * x | |
| 2158 | 7038 | ans = 0.166666666666666657_wp + ans * x | |
| 2159 | 7038 | ans = 0.200000000000000011_wp + ans * x | |
| 2160 | 7038 | ans = 0.077777777777777779_wp + ans * x | |
| 2161 | case (4) | ||
| 2162 | ans = -0.0486111111111111119_wp | ||
| 2163 | 7074 | ans = 0.125_wp + ans * x | |
| 2164 | 7074 | ans = 0.104166666666666671_wp + ans * x | |
| 2165 | 7074 | ans = -0.25_wp + ans * x | |
| 2166 | 7074 | ans = -0.395833333333333315_wp + ans * x | |
| 2167 | 7074 | ans = 0.125_wp + ans * x | |
| 2168 | 7074 | ans = 0.34027777777777779_wp + ans * x | |
| 2169 | case (3) | ||
| 2170 | ans = 0.0486111111111111119_wp | ||
| 2171 | 7116 | ans = -0.166666666666666657_wp + ans * x | |
| 2172 | 7116 | ans = ans * x | |
| 2173 | 7116 | ans = 0.44444444444444442_wp + ans * x | |
| 2174 | 7116 | ans = ans * x | |
| 2175 | 7116 | ans = -0.66666666666666663_wp + ans * x | |
| 2176 | 7116 | ans = ans * x | |
| 2177 | case (2) | ||
| 2178 | ans = -0.0291666666666666671_wp | ||
| 2179 | 7129 | ans = 0.125_wp + ans * x | |
| 2180 | 7129 | ans = -0.104166666666666671_wp + ans * x | |
| 2181 | 7129 | ans = -0.25_wp + ans * x | |
| 2182 | 7129 | ans = 0.395833333333333315_wp + ans * x | |
| 2183 | 7129 | ans = 0.125_wp + ans * x | |
| 2184 | 7129 | ans = -0.34027777777777779_wp + ans * x | |
| 2185 | case (1) | ||
| 2186 | ans = 0.00972222222222222238_wp | ||
| 2187 | 7107 | ans = -0.0500000000000000028_wp + ans * x | |
| 2188 | 7107 | ans = 0.0833333333333333287_wp + ans * x | |
| 2189 | 7107 | ans = 1.07952106938680558e-78_wp + ans * x | |
| 2190 | 7107 | ans = -0.166666666666666657_wp + ans * x | |
| 2191 | 7107 | ans = 0.200000000000000011_wp + ans * x | |
| 2192 | 7107 | ans = -0.077777777777777779_wp + ans * x | |
| 2193 | case (0) | ||
| 2194 | ans = -0.00138888888888888894_wp | ||
| 2195 | 7082 | ans = 0.00833333333333333322_wp + ans * x | |
| 2196 | 7082 | ans = -0.0208333333333333322_wp + ans * x | |
| 2197 | 7082 | ans = 0.0277777777777777762_wp + ans * x | |
| 2198 | 7082 | ans = -0.0208333333333333322_wp + ans * x | |
| 2199 | 7082 | ans = 0.00833333333333333322_wp + ans * x | |
| 2200 |
8/9✓ Branch 38 → 39 taken 6976 times.
✓ Branch 38 → 40 taken 7003 times.
✓ Branch 38 → 41 taken 7038 times.
✓ Branch 38 → 42 taken 7074 times.
✓ Branch 38 → 43 taken 7116 times.
✓ Branch 38 → 44 taken 7129 times.
✓ Branch 38 → 45 taken 7107 times.
✓ Branch 38 → 46 taken 7082 times.
✗ Branch 38 → 47 not taken.
|
56525 | ans = -0.00138888888888888894_wp + ans * x |
| 2201 | end select | ||
| 2202 | end select | ||
| 2203 | |||
| 2204 |
1/2✗ Branch 47 → 48 not taken.
✓ Branch 47 → 49 taken 63344 times.
|
63344 | if (scaled) then |
| 2205 | ✗ | ans = 8 * ans / (1 + j) | |
| 2206 | end if | ||
| 2207 | |||
| 2208 | 63344 | end function | |
| 2209 | |||
| 2210 | 24964290 | pure function bspline_eval_8(x, j, j_minus_i, scaled) result(ans) | |
| 2211 | !$acc routine seq | ||
| 2212 | |||
| 2213 | real(wp), intent(in) :: x | ||
| 2214 | integer, intent(in) :: j, j_minus_i | ||
| 2215 | logical, intent(in) :: scaled | ||
| 2216 | real(wp) :: ans | ||
| 2217 | |||
| 2218 | ans = 0._wp | ||
| 2219 | |||
| 2220 | 25362235 | select case (j) | |
| 2221 | case (0) | ||
| 2222 | 1715044 | select case (j_minus_i) | |
| 2223 | case (0) | ||
| 2224 | ans = 1_wp | ||
| 2225 | 294673 | ans = -8_wp + ans * x | |
| 2226 | 294673 | ans = 28_wp + ans * x | |
| 2227 | 294673 | ans = -56_wp + ans * x | |
| 2228 | 294673 | ans = 70_wp + ans * x | |
| 2229 | 294673 | ans = -56_wp + ans * x | |
| 2230 | 294673 | ans = 28_wp + ans * x | |
| 2231 | 294673 | ans = -8_wp + ans * x | |
| 2232 |
2/2✓ Branch 3 → 4 taken 294673 times.
✓ Branch 3 → 57 taken 103272 times.
|
397945 | ans = 1_wp + ans * x |
| 2233 | end select | ||
| 2234 | case (1) | ||
| 2235 | 2964052 | select case (j_minus_i) | |
| 2236 | case (1) | ||
| 2237 | ans = -1.9921875_wp | ||
| 2238 | 410589 | ans = 15.875_wp + ans * x | |
| 2239 | 410589 | ans = -55.125_wp + ans * x | |
| 2240 | 410589 | ans = 108.5_wp + ans * x | |
| 2241 | 410589 | ans = -131.25_wp + ans * x | |
| 2242 | 410589 | ans = 98_wp + ans * x | |
| 2243 | 410589 | ans = -42_wp + ans * x | |
| 2244 | 410589 | ans = 8_wp + ans * x | |
| 2245 | 410589 | ans = ans * x | |
| 2246 | case (0) | ||
| 2247 | ans = 0.0078125_wp | ||
| 2248 | 521474 | ans = -0.0625_wp + ans * x | |
| 2249 | 521474 | ans = 0.21875_wp + ans * x | |
| 2250 | 521474 | ans = -0.4375_wp + ans * x | |
| 2251 | 521474 | ans = 0.546875_wp + ans * x | |
| 2252 | 521474 | ans = -0.4375_wp + ans * x | |
| 2253 | 521474 | ans = 0.21875_wp + ans * x | |
| 2254 | 521474 | ans = -0.0625_wp + ans * x | |
| 2255 |
3/3✓ Branch 5 → 6 taken 410589 times.
✓ Branch 5 → 7 taken 521474 times.
✓ Branch 5 → 57 taken 90363 times.
|
1022426 | ans = 0.0078125_wp + ans * x |
| 2256 | end select | ||
| 2257 | case (2) | ||
| 2258 | 3981333 | select case (j_minus_i) | |
| 2259 | case (2) | ||
| 2260 | ans = 1.4772483710562414_wp | ||
| 2261 | 410589 | ans = -11.6414609053497937_wp + ans * x | |
| 2262 | 410589 | ans = 39.5478395061728421_wp + ans * x | |
| 2263 | 410589 | ans = -74.5370370370370381_wp + ans * x | |
| 2264 | 410589 | ans = 82.6388888888888857_wp + ans * x | |
| 2265 | 410589 | ans = -51.3333333333333357_wp + ans * x | |
| 2266 | 410589 | ans = 14_wp + ans * x | |
| 2267 | 410589 | ans = ans * x | |
| 2268 | 410589 | ans = ans * x | |
| 2269 | case (1) | ||
| 2270 | ans = -0.0227516289437585742_wp | ||
| 2271 | 521474 | ans = 0.176526063100137187_wp + ans * x | |
| 2272 | 521474 | ans = -0.579432441700960199_wp + ans * x | |
| 2273 | 521474 | ans = 1.0052297668038408_wp + ans * x | |
| 2274 | 521474 | ans = -0.872449417009602213_wp + ans * x | |
| 2275 | 521474 | ans = 0.0834190672153635182_wp + ans * x | |
| 2276 | 521474 | ans = 0.572830932784636482_wp + ans * x | |
| 2277 | 521474 | ans = -0.514831961591220799_wp + ans * x | |
| 2278 | 521474 | ans = 0.1521454903978052_wp + ans * x | |
| 2279 | case (0) | ||
| 2280 | ans = 0.000685871056241426562_wp | ||
| 2281 | 521520 | ans = -0.00548696844993141249_wp + ans * x | |
| 2282 | 521520 | ans = 0.0192043895747599468_wp + ans * x | |
| 2283 | 521520 | ans = -0.0384087791495198935_wp + ans * x | |
| 2284 | 521520 | ans = 0.0480109739368998617_wp + ans * x | |
| 2285 | 521520 | ans = -0.0384087791495198935_wp + ans * x | |
| 2286 | 521520 | ans = 0.0192043895747599468_wp + ans * x | |
| 2287 | 521520 | ans = -0.00548696844993141249_wp + ans * x | |
| 2288 |
4/4✓ Branch 8 → 9 taken 410589 times.
✓ Branch 8 → 10 taken 521474 times.
✓ Branch 8 → 11 taken 521520 times.
✓ Branch 8 → 57 taken 77454 times.
|
1531037 | ans = 0.000685871056241426562_wp + ans * x |
| 2289 | end select | ||
| 2290 | case (3) | ||
| 2291 | 4998687 | select case (j_minus_i) | |
| 2292 | case (3) | ||
| 2293 | ans = -0.637997390474965731_wp | ||
| 2294 | 410589 | ans = 4.89396862139917666_wp + ans * x | |
| 2295 | 410589 | ans = -15.7851080246913575_wp + ans * x | |
| 2296 | 410589 | ans = 26.8981481481481488_wp + ans * x | |
| 2297 | 410589 | ans = -24.3055555555555571_wp + ans * x | |
| 2298 | 410589 | ans = 9.33333333333333393_wp + ans * x | |
| 2299 | 410589 | ans = ans * x | |
| 2300 | 410589 | ans = ans * x | |
| 2301 | 410589 | ans = ans * x | |
| 2302 | case (2) | ||
| 2303 | ans = 0.0286692761917009611_wp | ||
| 2304 | 521474 | ans = -0.210010502400548693_wp + ans * x | |
| 2305 | 521474 | ans = 0.608745391803840907_wp + ans * x | |
| 2306 | 521474 | ans = -0.767012817215363518_wp + ans * x | |
| 2307 | 521474 | ans = 0.0376492305384087816_wp + ans * x | |
| 2308 | 521474 | ans = 0.951479981138545927_wp + ans * x | |
| 2309 | 521474 | ans = -0.719058106138545927_wp + ans * x | |
| 2310 | 521474 | ans = -0.288328403635116581_wp + ans * x | |
| 2311 | 521474 | ans = 0.396789132158779145_wp + ans * x | |
| 2312 | case (1) | ||
| 2313 | ans = -0.00258072380829903972_wp | ||
| 2314 | 521520 | ans = 0.0193437071330589856_wp + ans * x | |
| 2315 | 521520 | ans = -0.0585883916323731158_wp + ans * x | |
| 2316 | 521520 | ans = 0.0807184499314128889_wp + ans * x | |
| 2317 | 521520 | ans = -0.00975222908093278419_wp + ans * x | |
| 2318 | 521520 | ans = -0.138031550068587111_wp + ans * x | |
| 2319 | 521520 | ans = 0.214849108367626884_wp + ans * x | |
| 2320 | 521520 | ans = -0.144718792866941004_wp + ans * x | |
| 2321 | 521520 | ans = 0.0389231824417009611_wp + ans * x | |
| 2322 | case (0) | ||
| 2323 | ans = 0.000162760416666666658_wp | ||
| 2324 | 521579 | ans = -0.00130208333333333326_wp + ans * x | |
| 2325 | 521579 | ans = 0.00455729166666666696_wp + ans * x | |
| 2326 | 521579 | ans = -0.00911458333333333391_wp + ans * x | |
| 2327 | 521579 | ans = 0.0113932291666666661_wp + ans * x | |
| 2328 | 521579 | ans = -0.00911458333333333391_wp + ans * x | |
| 2329 | 521579 | ans = 0.00455729166666666696_wp + ans * x | |
| 2330 | 521579 | ans = -0.00130208333333333326_wp + ans * x | |
| 2331 |
5/5✓ Branch 12 → 13 taken 410589 times.
✓ Branch 12 → 14 taken 521474 times.
✓ Branch 12 → 15 taken 521520 times.
✓ Branch 12 → 16 taken 521579 times.
✓ Branch 12 → 57 taken 64545 times.
|
2039707 | ans = 0.000162760416666666658_wp + ans * x |
| 2332 | end select | ||
| 2333 | case (4) | ||
| 2334 | 6016042 | select case (j_minus_i) | |
| 2335 | case (4) | ||
| 2336 | ans = 0.186688564171810706_wp | ||
| 2337 | 410589 | ans = -1.35008179012345675_wp + ans * x | |
| 2338 | 410589 | ans = 3.89504629629629617_wp + ans * x | |
| 2339 | 410589 | ans = -5.3277777777777775_wp + ans * x | |
| 2340 | 410589 | ans = 2.91666666666666652_wp + ans * x | |
| 2341 | 410589 | ans = ans * x | |
| 2342 | 410589 | ans = ans * x | |
| 2343 | 410589 | ans = ans * x | |
| 2344 | 410589 | ans = ans * x | |
| 2345 | case (3) | ||
| 2346 | ans = -0.0216447691615226333_wp | ||
| 2347 | 521474 | ans = 0.143426723251028815_wp + ans * x | |
| 2348 | 521474 | ans = -0.328246437757201637_wp + ans * x | |
| 2349 | 521474 | ans = 0.145342001028806594_wp + ans * x | |
| 2350 | 521474 | ans = 0.51880905992798354_wp + ans * x | |
| 2351 | 521474 | ans = -0.508488245884773704_wp + ans * x | |
| 2352 | 521474 | ans = -0.476521129115226316_wp + ans * x | |
| 2353 | 521474 | ans = 0.440991538065843625_wp + ans * x | |
| 2354 | 521474 | ans = 0.32054195923353912_wp + ans * x | |
| 2355 | case (2) | ||
| 2356 | ans = 0.00439689750514403281_wp | ||
| 2357 | 521520 | ans = -0.0297314300411522618_wp + ans * x | |
| 2358 | 521520 | ans = 0.0696870884773662519_wp + ans * x | |
| 2359 | 521520 | ans = -0.0242825102880658422_wp + ans * x | |
| 2360 | 521520 | ans = -0.17337602880658437_wp + ans * x | |
| 2361 | 521520 | ans = 0.263067489711934166_wp + ans * x | |
| 2362 | 521520 | ans = 0.0464995884773662521_wp + ans * x | |
| 2363 | 521520 | ans = -0.374218930041152253_wp + ans * x | |
| 2364 | 521520 | ans = 0.234210699588477372_wp + ans * x | |
| 2365 | case (1) | ||
| 2366 | ans = -0.000747135416666666673_wp | ||
| 2367 | 521579 | ans = 0.0054437499999999998_wp + ans * x | |
| 2368 | 521579 | ans = -0.0153197916666666673_wp + ans * x | |
| 2369 | 521579 | ans = 0.0157062500000000015_wp + ans * x | |
| 2370 | 521579 | ans = 0.0177005208333333337_wp + ans * x | |
| 2371 | 521579 | ans = -0.0738937499999999942_wp + ans * x | |
| 2372 | 521579 | ans = 0.0966802083333333367_wp + ans * x | |
| 2373 | 521579 | ans = -0.0617562499999999986_wp + ans * x | |
| 2374 | 521579 | ans = 0.0162528645833333318_wp + ans * x | |
| 2375 | case (0) | ||
| 2376 | ans = 6.66666666666666699e-05_wp | ||
| 2377 | 521593 | ans = -0.000533333333333333359_wp + ans * x | |
| 2378 | 521593 | ans = 0.00186666666666666665_wp + ans * x | |
| 2379 | 521593 | ans = -0.0037333333333333333_wp + ans * x | |
| 2380 | 521593 | ans = 0.00466666666666666705_wp + ans * x | |
| 2381 | 521593 | ans = -0.0037333333333333333_wp + ans * x | |
| 2382 | 521593 | ans = 0.00186666666666666665_wp + ans * x | |
| 2383 | 521593 | ans = -0.000533333333333333359_wp + ans * x | |
| 2384 |
6/6✓ Branch 17 → 18 taken 410589 times.
✓ Branch 17 → 19 taken 521474 times.
✓ Branch 17 → 20 taken 521520 times.
✓ Branch 17 → 21 taken 521579 times.
✓ Branch 17 → 22 taken 521593 times.
✓ Branch 17 → 57 taken 51636 times.
|
2548391 | ans = 6.66666666666666699e-05_wp + ans * x |
| 2385 | end select | ||
| 2386 | case (5) | ||
| 2387 | 7033369 | select case (j_minus_i) | |
| 2388 | case (5) | ||
| 2389 | ans = -0.0389561342592592563_wp | ||
| 2390 | 410589 | ans = 0.249796296296296294_wp + ans * x | |
| 2391 | 410589 | ans = -0.571666666666666656_wp + ans * x | |
| 2392 | 410589 | ans = 0.466666666666666674_wp + ans * x | |
| 2393 | 410589 | ans = ans * x | |
| 2394 | 410589 | ans = ans * x | |
| 2395 | 410589 | ans = ans * x | |
| 2396 | 410589 | ans = ans * x | |
| 2397 | 410589 | ans = ans * x | |
| 2398 | case (4) | ||
| 2399 | ans = 0.0110438657407407412_wp | ||
| 2400 | 521474 | ans = -0.0618527777777777774_wp + ans * x | |
| 2401 | 521474 | ans = 0.0861356481481481417_wp + ans * x | |
| 2402 | 521474 | ans = 0.100845370370370377_wp + ans * x | |
| 2403 | 521474 | ans = -0.225725694444444458_wp + ans * x | |
| 2404 | 521474 | ans = -0.205339814814814808_wp + ans * x | |
| 2405 | 521474 | ans = 0.246617129629629617_wp + ans * x | |
| 2406 | 521474 | ans = 0.340258333333333329_wp + ans * x | |
| 2407 | 521474 | ans = 0.105840162037037042_wp + ans * x | |
| 2408 | case (3) | ||
| 2409 | ans = -0.00458113425925925962_wp | ||
| 2410 | 521520 | ans = 0.0264981481481481491_wp + ans * x | |
| 2411 | 521520 | ans = -0.0376055555555555587_wp + ans * x | |
| 2412 | 521520 | ans = -0.0627925925925925943_wp + ans * x | |
| 2413 | 521520 | ans = 0.178759259259259257_wp + ans * x | |
| 2414 | 521520 | ans = 0.0765333333333333282_wp + ans * x | |
| 2415 | 521520 | ans = -0.412948148148148175_wp + ans * x | |
| 2416 | 521520 | ans = -0.00900740740740740668_wp + ans * x | |
| 2417 | 521520 | ans = 0.397822222222222244_wp + ans * x | |
| 2418 | case (2) | ||
| 2419 | ans = 0.00159170524691358019_wp | ||
| 2420 | 521579 | ans = -0.0101509259259259261_wp + ans * x | |
| 2421 | 521579 | ans = 0.0196097222222222228_wp + ans * x | |
| 2422 | 521579 | ans = 0.0114916666666666674_wp + ans * x | |
| 2423 | 521579 | ans = -0.0925312499999999954_wp + ans * x | |
| 2424 | 521579 | ans = 0.0824249999999999983_wp + ans * x | |
| 2425 | 521579 | ans = 0.125387500000000013_wp + ans * x | |
| 2426 | 521579 | ans = -0.281025000000000025_wp + ans * x | |
| 2427 | 521579 | ans = 0.152678124999999998_wp + ans * x | |
| 2428 | case (1) | ||
| 2429 | ans = -0.000361419753086419753_wp | ||
| 2430 | 521593 | ans = 0.00258271604938271589_wp + ans * x | |
| 2431 | 521593 | ans = -0.00687901234567901265_wp + ans * x | |
| 2432 | 521593 | ans = 0.00511604938271604907_wp + ans * x | |
| 2433 | 521593 | ans = 0.015209876543209877_wp + ans * x | |
| 2434 | 521593 | ans = -0.0467358024691357996_wp + ans * x | |
| 2435 | 521593 | ans = 0.0579358024691358012_wp + ans * x | |
| 2436 | 521593 | ans = -0.0363061728395061706_wp + ans * x | |
| 2437 | 521593 | ans = 0.00947654320987654369_wp + ans * x | |
| 2438 | case (0) | ||
| 2439 | ans = 3.85802469135802461e-05_wp | ||
| 2440 | 521580 | ans = -0.000308641975308641969_wp + ans * x | |
| 2441 | 521580 | ans = 0.00108024691358024681_wp + ans * x | |
| 2442 | 521580 | ans = -0.00216049382716049362_wp + ans * x | |
| 2443 | 521580 | ans = 0.00270061728395061713_wp + ans * x | |
| 2444 | 521580 | ans = -0.00216049382716049362_wp + ans * x | |
| 2445 | 521580 | ans = 0.00108024691358024681_wp + ans * x | |
| 2446 | 521580 | ans = -0.000308641975308641969_wp + ans * x | |
| 2447 |
7/7✓ Branch 23 → 24 taken 410589 times.
✓ Branch 23 → 25 taken 521474 times.
✓ Branch 23 → 26 taken 521520 times.
✓ Branch 23 → 27 taken 521579 times.
✓ Branch 23 → 28 taken 521593 times.
✓ Branch 23 → 29 taken 521580 times.
✓ Branch 23 → 57 taken 38727 times.
|
3057062 | ans = 3.85802469135802461e-05_wp + ans * x |
| 2448 | end select | ||
| 2449 | case (6) | ||
| 2450 | 8050698 | select case (j_minus_i) | |
| 2451 | case (6) | ||
| 2452 | ans = 0.00571854528848576502_wp | ||
| 2453 | 410589 | ans = -0.0288095238095238092_wp + ans * x | |
| 2454 | 410589 | ans = 0.0388888888888888895_wp + ans * x | |
| 2455 | 410589 | ans = ans * x | |
| 2456 | 410589 | ans = ans * x | |
| 2457 | 410589 | ans = ans * x | |
| 2458 | 410589 | ans = ans * x | |
| 2459 | 410589 | ans = ans * x | |
| 2460 | 410589 | ans = ans * x | |
| 2461 | case (5) | ||
| 2462 | ans = -0.00400367693373645736_wp | ||
| 2463 | 521474 | ans = 0.0169388384983623075_wp + ans * x | |
| 2464 | 521474 | ans = -0.00265850970017636684_wp + ans * x | |
| 2465 | 521474 | ans = -0.051428130511463846_wp + ans * x | |
| 2466 | 521474 | ans = -0.0247018298059964725_wp + ans * x | |
| 2467 | 521474 | ans = 0.0896829805996472718_wp + ans * x | |
| 2468 | 521474 | ans = 0.138452601410934739_wp + ans * x | |
| 2469 | 521474 | ans = 0.0774150289745527825_wp + ans * x | |
| 2470 | 521474 | ans = 0.0157979103678508453_wp + ans * x | |
| 2471 | case (4) | ||
| 2472 | ans = 0.00328798973293020899_wp | ||
| 2473 | 521520 | ans = -0.0150905769715293531_wp + ans * x | |
| 2474 | 521520 | ans = 0.00381040564373897727_wp + ans * x | |
| 2475 | 521520 | ans = 0.0641305114638447971_wp + ans * x | |
| 2476 | 521520 | ans = -0.00911816578483245176_wp + ans * x | |
| 2477 | 521520 | ans = -0.207922398589065249_wp + ans * x | |
| 2478 | 521520 | ans = -0.0512557319223985869_wp + ans * x | |
| 2479 | 521520 | ans = 0.338012597631645262_wp + ans * x | |
| 2480 | 521520 | ans = 0.255495212899974788_wp + ans * x | |
| 2481 | case (3) | ||
| 2482 | ans = -0.00211324483497102528_wp | ||
| 2483 | 521579 | ans = 0.0112133408919123205_wp + ans * x | |
| 2484 | 521579 | ans = -0.00975992063492063522_wp + ans * x | |
| 2485 | 521579 | ans = -0.0457817460317460345_wp + ans * x | |
| 2486 | 521579 | ans = 0.070679563492063488_wp + ans * x | |
| 2487 | 521579 | ans = 0.129075396825396815_wp + ans * x | |
| 2488 | 521579 | ans = -0.256109126984126967_wp + ans * x | |
| 2489 | 521579 | ans = -0.160553854875283453_wp + ans * x | |
| 2490 | 521579 | ans = 0.381349844104308389_wp + ans * x | |
| 2491 | case (2) | ||
| 2492 | ans = 0.000924949609473418996_wp | ||
| 2493 | 521593 | ans = -0.00569261778785588347_wp + ans * x | |
| 2494 | 521593 | ans = 0.00956261022927689525_wp + ans * x | |
| 2495 | 521593 | ans = 0.0127971781305114638_wp + ans * x | |
| 2496 | 521593 | ans = -0.0600881834215167554_wp + ans * x | |
| 2497 | 521593 | ans = 0.0329029982363315682_wp + ans * x | |
| 2498 | 521593 | ans = 0.127287477954144634_wp + ans * x | |
| 2499 | 521593 | ans = -0.228708490803728903_wp + ans * x | |
| 2500 | 521593 | ans = 0.118000251952632904_wp + ans * x | |
| 2501 | case (1) | ||
| 2502 | ans = -0.000241717057193247659_wp | ||
| 2503 | 521580 | ans = 0.00170697908793146893_wp + ans * x | |
| 2504 | 521580 | ans = -0.00438712522045855372_wp + ans * x | |
| 2505 | 521580 | ans = 0.00242504409171075824_wp + ans * x | |
| 2506 | 521580 | ans = 0.0128417107583774243_wp + ans * x | |
| 2507 | 521580 | ans = -0.0356701940035273335_wp + ans * x | |
| 2508 | 521580 | ans = 0.0432319223985890635_wp + ans * x | |
| 2509 | 521580 | ans = -0.026864449483497102_wp + ans * x | |
| 2510 | 521580 | ans = 0.00698617409926933705_wp + ans * x | |
| 2511 | case (0) | ||
| 2512 | ans = 2.83446712018140604e-05_wp | ||
| 2513 | 521565 | ans = -0.000226757369614512483_wp + ans * x | |
| 2514 | 521565 | ans = 0.00079365079365079365_wp + ans * x | |
| 2515 | 521565 | ans = -0.0015873015873015873_wp + ans * x | |
| 2516 | 521565 | ans = 0.00198412698412698402_wp + ans * x | |
| 2517 | 521565 | ans = -0.0015873015873015873_wp + ans * x | |
| 2518 | 521565 | ans = 0.00079365079365079365_wp + ans * x | |
| 2519 | 521565 | ans = -0.000226757369614512483_wp + ans * x | |
| 2520 |
8/8✓ Branch 30 → 31 taken 410589 times.
✓ Branch 30 → 32 taken 521474 times.
✓ Branch 30 → 33 taken 521520 times.
✓ Branch 30 → 34 taken 521579 times.
✓ Branch 30 → 35 taken 521593 times.
✓ Branch 30 → 36 taken 521580 times.
✓ Branch 30 → 37 taken 521565 times.
✓ Branch 30 → 57 taken 25818 times.
|
3565718 | ans = 2.83446712018140604e-05_wp + ans * x |
| 2521 | end select | ||
| 2522 | case (7) | ||
| 2523 | 11212593 | select case (j_minus_i) | |
| 2524 | case (7) | ||
| 2525 | ans = -0.000539257369614512517_wp | ||
| 2526 | 410589 | ans = 0.0015873015873015873_wp + ans * x | |
| 2527 | 410589 | ans = ans * x | |
| 2528 | 410589 | ans = ans * x | |
| 2529 | 410589 | ans = ans * x | |
| 2530 | 410589 | ans = ans * x | |
| 2531 | 410589 | ans = ans * x | |
| 2532 | 410589 | ans = ans * x | |
| 2533 | 410589 | ans = ans * x | |
| 2534 | case (6) | ||
| 2535 | ans = 0.00104804421768707489_wp | ||
| 2536 | 521474 | ans = -0.0027267573696145124_wp + ans * x | |
| 2537 | 521474 | ans = -0.0039880952380952385_wp + ans * x | |
| 2538 | 521474 | ans = 0.00313492063492063497_wp + ans * x | |
| 2539 | 521474 | ans = 0.0178075396825396817_wp + ans * x | |
| 2540 | 521474 | ans = 0.0253571428571428559_wp + ans * x | |
| 2541 | 521474 | ans = 0.0182341269841269846_wp + ans * x | |
| 2542 | 521474 | ans = 0.0067970521541950114_wp + ans * x | |
| 2543 | 521474 | ans = 0.00104804421768707489_wp + ans * x | |
| 2544 | case (5) | ||
| 2545 | ans = -0.00172973356009070299_wp | ||
| 2546 | 521520 | ans = 0.00565759637188208587_wp + ans * x | |
| 2547 | 521520 | ans = 0.00626984126984126994_wp + ans * x | |
| 2548 | 521520 | ans = -0.0193650793650793664_wp + ans * x | |
| 2549 | 521520 | ans = -0.0484126984126984142_wp + ans * x | |
| 2550 | 521520 | ans = 0.0114285714285714286_wp + ans * x | |
| 2551 | 521520 | ans = 0.144761904761904758_wp + ans * x | |
| 2552 | 521520 | ans = 0.17160997732426303_wp + ans * x | |
| 2553 | 521520 | ans = 0.0667120181405895657_wp + ans * x | |
| 2554 | case (4) | ||
| 2555 | ans = 0.00197397014361300064_wp | ||
| 2556 | 521579 | ans = -0.0081802721088435372_wp + ans * x | |
| 2557 | 521579 | ans = -0.00255952380952380971_wp + ans * x | |
| 2558 | 521579 | ans = 0.0401984126984126985_wp + ans * x | |
| 2559 | 521579 | ans = 0.0257440476190476178_wp + ans * x | |
| 2560 | 521579 | ans = -0.149325396825396833_wp + ans * x | |
| 2561 | 521579 | ans = -0.140654761904761894_wp + ans * x | |
| 2562 | 521579 | ans = 0.268327664399092947_wp + ans * x | |
| 2563 | 521579 | ans = 0.336932397959183672_wp + ans * x | |
| 2564 | case (3) | ||
| 2565 | ans = -0.00149825207860922139_wp | ||
| 2566 | 521593 | ans = 0.00761148904006046876_wp + ans * x | |
| 2567 | 521593 | ans = -0.00455026455026455012_wp + ans * x | |
| 2568 | 521593 | ans = -0.0364021164021164009_wp + ans * x | |
| 2569 | 521593 | ans = 0.0402116402116402122_wp + ans * x | |
| 2570 | 521593 | ans = 0.128677248677248668_wp + ans * x | |
| 2571 | 521593 | ans = -0.187089947089947084_wp + ans * x | |
| 2572 | 521593 | ans = -0.213817082388510965_wp + ans * x | |
| 2573 | 521593 | ans = 0.372456538170823859_wp + ans * x | |
| 2574 | case (2) | ||
| 2575 | ans = 0.000723970143613000719_wp | ||
| 2576 | 521580 | ans = -0.00437452758881330325_wp + ans * x | |
| 2577 | 521580 | ans = 0.00677910052910052872_wp + ans * x | |
| 2578 | 521580 | ans = 0.0122354497354497348_wp + ans * x | |
| 2579 | 521580 | ans = -0.0485284391534391568_wp + ans * x | |
| 2580 | 521580 | ans = 0.0169973544973544971_wp + ans * x | |
| 2581 | 521580 | ans = 0.125826719576719565_wp + ans * x | |
| 2582 | 521580 | ans = -0.209136432350718077_wp + ans * x | |
| 2583 | 521580 | ans = 0.105599253590325015_wp + ans * x | |
| 2584 | case (1) | ||
| 2585 | ans = -0.000201955782312925161_wp | ||
| 2586 | 521565 | ans = 0.00141723356009070293_wp + ans * x | |
| 2587 | 521565 | ans = -0.00357142857142857132_wp + ans * x | |
| 2588 | 521565 | ans = 0.0015873015873015873_wp + ans * x | |
| 2589 | 521565 | ans = 0.0119047619047619041_wp + ans * x | |
| 2590 | 521565 | ans = -0.0317460317460317443_wp + ans * x | |
| 2591 | 521565 | ans = 0.0380952380952380987_wp + ans * x | |
| 2592 | 521565 | ans = -0.023582766439909298_wp + ans * x | |
| 2593 | 521565 | ans = 0.00612244897959183642_wp + ans * x | |
| 2594 | case (0) | ||
| 2595 | ans = 2.48015873015873016e-05_wp | ||
| 2596 | 521582 | ans = -0.000198412698412698413_wp + ans * x | |
| 2597 | 521582 | ans = 0.000694444444444444471_wp + ans * x | |
| 2598 | 521582 | ans = -0.00138888888888888894_wp + ans * x | |
| 2599 | 521582 | ans = 0.00173611111111111101_wp + ans * x | |
| 2600 | 521582 | ans = -0.00138888888888888894_wp + ans * x | |
| 2601 | 521582 | ans = 0.000694444444444444471_wp + ans * x | |
| 2602 | 521582 | ans = -0.000198412698412698413_wp + ans * x | |
| 2603 |
9/9✓ Branch 38 → 39 taken 410589 times.
✓ Branch 38 → 40 taken 521474 times.
✓ Branch 38 → 41 taken 521520 times.
✓ Branch 38 → 42 taken 521579 times.
✓ Branch 38 → 43 taken 521593 times.
✓ Branch 38 → 44 taken 521580 times.
✓ Branch 38 → 45 taken 521565 times.
✓ Branch 38 → 46 taken 521582 times.
✓ Branch 38 → 57 taken 12909 times.
|
4074391 | ans = 2.48015873015873016e-05_wp + ans * x |
| 2604 | end select | ||
| 2605 | case (8) | ||
| 2606 |
9/10✓ Branch 2 → 3 taken 397945 times.
✓ Branch 2 → 5 taken 1022426 times.
✓ Branch 2 → 8 taken 1531037 times.
✓ Branch 2 → 12 taken 2039707 times.
✓ Branch 2 → 17 taken 2548391 times.
✓ Branch 2 → 23 taken 3057062 times.
✓ Branch 2 → 30 taken 3565718 times.
✓ Branch 2 → 38 taken 4074391 times.
✓ Branch 2 → 47 taken 6727613 times.
✗ Branch 2 → 57 not taken.
|
24964290 | select case (j_minus_i) |
| 2607 | case (8) | ||
| 2608 | ans = 2.48015873015873016e-05_wp | ||
| 2609 | 759663 | ans = ans * x | |
| 2610 | 759663 | ans = ans * x | |
| 2611 | 759663 | ans = ans * x | |
| 2612 | 759663 | ans = ans * x | |
| 2613 | 759663 | ans = ans * x | |
| 2614 | 759663 | ans = ans * x | |
| 2615 | 759663 | ans = ans * x | |
| 2616 | 759663 | ans = ans * x | |
| 2617 | case (7) | ||
| 2618 | ans = -0.000198412698412698413_wp | ||
| 2619 | 759651 | ans = 0.000198412698412698413_wp + ans * x | |
| 2620 | 759651 | ans = 0.000694444444444444471_wp + ans * x | |
| 2621 | 759651 | ans = 0.00138888888888888894_wp + ans * x | |
| 2622 | 759651 | ans = 0.00173611111111111101_wp + ans * x | |
| 2623 | 759651 | ans = 0.00138888888888888894_wp + ans * x | |
| 2624 | 759651 | ans = 0.000694444444444444471_wp + ans * x | |
| 2625 | 759651 | ans = 0.000198412698412698413_wp + ans * x | |
| 2626 | 759651 | ans = 2.48015873015873016e-05_wp + ans * x | |
| 2627 | case (6) | ||
| 2628 | ans = 0.000694444444444444471_wp | ||
| 2629 | 759658 | ans = -0.00138888888888888894_wp + ans * x | |
| 2630 | 759658 | ans = -0.00347222222222222203_wp + ans * x | |
| 2631 | 759658 | ans = -0.00138888888888888894_wp + ans * x | |
| 2632 | 759658 | ans = 0.012152777777777778_wp + ans * x | |
| 2633 | 759658 | ans = 0.031944444444444442_wp + ans * x | |
| 2634 | 759658 | ans = 0.0381944444444444475_wp + ans * x | |
| 2635 | 759658 | ans = 0.0236111111111111105_wp + ans * x | |
| 2636 | 759658 | ans = 0.00612599206349206341_wp + ans * x | |
| 2637 | case (5) | ||
| 2638 | ans = -0.00138888888888888894_wp | ||
| 2639 | 759763 | ans = 0.00416666666666666661_wp + ans * x | |
| 2640 | 759763 | ans = 0.00625000000000000035_wp + ans * x | |
| 2641 | 759763 | ans = -0.0125000000000000007_wp + ans * x | |
| 2642 | 759763 | ans = -0.046875_wp + ans * x | |
| 2643 | 759763 | ans = -0.0125000000000000007_wp + ans * x | |
| 2644 | 759763 | ans = 0.131250000000000006_wp + ans * x | |
| 2645 | 759763 | ans = 0.212499999999999994_wp + ans * x | |
| 2646 | 759763 | ans = 0.106473214285714282_wp + ans * x | |
| 2647 | case (4) | ||
| 2648 | ans = 0.00173611111111111101_wp | ||
| 2649 | 759888 | ans = -0.00694444444444444406_wp + ans * x | |
| 2650 | 759888 | ans = -0.00347222222222222203_wp + ans * x | |
| 2651 | 759888 | ans = 0.0347222222222222238_wp + ans * x | |
| 2652 | 759888 | ans = 0.0329861111111111119_wp + ans * x | |
| 2653 | 759888 | ans = -0.131944444444444448_wp + ans * x | |
| 2654 | 759888 | ans = -0.170138888888888895_wp + ans * x | |
| 2655 | 759888 | ans = 0.243055555555555552_wp + ans * x | |
| 2656 | 759888 | ans = 0.387375992063492047_wp + ans * x | |
| 2657 | case (3) | ||
| 2658 | ans = -0.00138888888888888894_wp | ||
| 2659 | 760007 | ans = 0.00694444444444444406_wp + ans * x | |
| 2660 | 760007 | ans = -0.00347222222222222203_wp + ans * x | |
| 2661 | 760007 | ans = -0.0347222222222222238_wp + ans * x | |
| 2662 | 760007 | ans = 0.0329861111111111119_wp + ans * x | |
| 2663 | 760007 | ans = 0.131944444444444448_wp + ans * x | |
| 2664 | 760007 | ans = -0.170138888888888895_wp + ans * x | |
| 2665 | 760007 | ans = -0.243055555555555552_wp + ans * x | |
| 2666 | 760007 | ans = 0.387375992063492047_wp + ans * x | |
| 2667 | case (2) | ||
| 2668 | ans = 0.000694444444444444471_wp | ||
| 2669 | 760052 | ans = -0.00416666666666666661_wp + ans * x | |
| 2670 | 760052 | ans = 0.00625000000000000035_wp + ans * x | |
| 2671 | 760052 | ans = 0.0125000000000000007_wp + ans * x | |
| 2672 | 760052 | ans = -0.046875_wp + ans * x | |
| 2673 | 760052 | ans = 0.0125000000000000007_wp + ans * x | |
| 2674 | 760052 | ans = 0.131250000000000006_wp + ans * x | |
| 2675 | 760052 | ans = -0.212499999999999994_wp + ans * x | |
| 2676 | 760052 | ans = 0.106473214285714282_wp + ans * x | |
| 2677 | case (1) | ||
| 2678 | ans = -0.000198412698412698413_wp | ||
| 2679 | 759972 | ans = 0.00138888888888888894_wp + ans * x | |
| 2680 | 759972 | ans = -0.00347222222222222203_wp + ans * x | |
| 2681 | 759972 | ans = 0.00138888888888888894_wp + ans * x | |
| 2682 | 759972 | ans = 0.012152777777777778_wp + ans * x | |
| 2683 | 759972 | ans = -0.031944444444444442_wp + ans * x | |
| 2684 | 759972 | ans = 0.0381944444444444475_wp + ans * x | |
| 2685 | 759972 | ans = -0.0236111111111111105_wp + ans * x | |
| 2686 | 759972 | ans = 0.00612599206349206341_wp + ans * x | |
| 2687 | case (0) | ||
| 2688 | ans = 2.48015873015873016e-05_wp | ||
| 2689 | 648959 | ans = -0.000198412698412698413_wp + ans * x | |
| 2690 | 648959 | ans = 0.000694444444444444471_wp + ans * x | |
| 2691 | 648959 | ans = -0.00138888888888888894_wp + ans * x | |
| 2692 | 648959 | ans = 0.00173611111111111101_wp + ans * x | |
| 2693 | 648959 | ans = -0.00138888888888888894_wp + ans * x | |
| 2694 | 648959 | ans = 0.000694444444444444471_wp + ans * x | |
| 2695 | 648959 | ans = -0.000198412698412698413_wp + ans * x | |
| 2696 |
9/10✓ Branch 47 → 48 taken 759663 times.
✓ Branch 47 → 49 taken 759651 times.
✓ Branch 47 → 50 taken 759658 times.
✓ Branch 47 → 51 taken 759763 times.
✓ Branch 47 → 52 taken 759888 times.
✓ Branch 47 → 53 taken 760007 times.
✓ Branch 47 → 54 taken 760052 times.
✓ Branch 47 → 55 taken 759972 times.
✓ Branch 47 → 56 taken 648959 times.
✗ Branch 47 → 57 not taken.
|
6727613 | ans = 2.48015873015873016e-05_wp + ans * x |
| 2697 | end select | ||
| 2698 | end select | ||
| 2699 | |||
| 2700 |
1/2✗ Branch 57 → 58 not taken.
✓ Branch 57 → 59 taken 24964290 times.
|
24964290 | if (scaled) then |
| 2701 | ✗ | ans = 9 * ans / (1 + j) | |
| 2702 | end if | ||
| 2703 | |||
| 2704 | 24964290 | end function | |
| 2705 | |||
| 2706 | 68769 | pure function bspline_eval_derivative_8(x, j, j_minus_i, scaled) result(ans) | |
| 2707 | !$acc routine seq | ||
| 2708 | |||
| 2709 | real(wp), intent(in) :: x | ||
| 2710 | integer, intent(in) :: j, j_minus_i | ||
| 2711 | logical, intent(in) :: scaled | ||
| 2712 | real(wp) :: ans | ||
| 2713 | |||
| 2714 | ans = 0._wp | ||
| 2715 | |||
| 2716 | 68982 | select case (j) | |
| 2717 | case (0) | ||
| 2718 | 837 | select case (j_minus_i) | |
| 2719 | case (0) | ||
| 2720 | ans = 8_wp | ||
| 2721 | 213 | ans = -56_wp + ans * x | |
| 2722 | 213 | ans = 168_wp + ans * x | |
| 2723 | 213 | ans = -280_wp + ans * x | |
| 2724 | 213 | ans = 280_wp + ans * x | |
| 2725 | 213 | ans = -168_wp + ans * x | |
| 2726 | 213 | ans = 56_wp + ans * x | |
| 2727 |
1/2✓ Branch 3 → 4 taken 213 times.
✗ Branch 3 → 57 not taken.
|
213 | ans = -8_wp + ans * x |
| 2728 | end select | ||
| 2729 | case (1) | ||
| 2730 | 1266 | select case (j_minus_i) | |
| 2731 | case (1) | ||
| 2732 | ans = -15.9375_wp | ||
| 2733 | 213 | ans = 111.125_wp + ans * x | |
| 2734 | 213 | ans = -330.75_wp + ans * x | |
| 2735 | 213 | ans = 542.5_wp + ans * x | |
| 2736 | 213 | ans = -525_wp + ans * x | |
| 2737 | 213 | ans = 294_wp + ans * x | |
| 2738 | 213 | ans = -84_wp + ans * x | |
| 2739 | 213 | ans = 8_wp + ans * x | |
| 2740 | case (0) | ||
| 2741 | ans = 0.0625_wp | ||
| 2742 | 198 | ans = -0.4375_wp + ans * x | |
| 2743 | 198 | ans = 1.3125_wp + ans * x | |
| 2744 | 198 | ans = -2.1875_wp + ans * x | |
| 2745 | 198 | ans = 2.1875_wp + ans * x | |
| 2746 | 198 | ans = -1.3125_wp + ans * x | |
| 2747 | 198 | ans = 0.4375_wp + ans * x | |
| 2748 |
2/3✓ Branch 5 → 6 taken 213 times.
✓ Branch 5 → 7 taken 198 times.
✗ Branch 5 → 57 not taken.
|
411 | ans = -0.0625_wp + ans * x |
| 2749 | end select | ||
| 2750 | case (2) | ||
| 2751 | 1735 | select case (j_minus_i) | |
| 2752 | case (2) | ||
| 2753 | ans = 11.8179869684499312_wp | ||
| 2754 | 213 | ans = -81.4902263374485614_wp + ans * x | |
| 2755 | 213 | ans = 237.287037037037038_wp + ans * x | |
| 2756 | 213 | ans = -372.685185185185162_wp + ans * x | |
| 2757 | 213 | ans = 330.555555555555543_wp + ans * x | |
| 2758 | 213 | ans = -154_wp + ans * x | |
| 2759 | 213 | ans = 28_wp + ans * x | |
| 2760 | 213 | ans = ans * x | |
| 2761 | case (1) | ||
| 2762 | ans = -0.182013031550068594_wp | ||
| 2763 | 198 | ans = 1.2356824417009602_wp + ans * x | |
| 2764 | 198 | ans = -3.47659465020576119_wp + ans * x | |
| 2765 | 198 | ans = 5.02614883401920398_wp + ans * x | |
| 2766 | 198 | ans = -3.48979766803840885_wp + ans * x | |
| 2767 | 198 | ans = 0.250257201646090555_wp + ans * x | |
| 2768 | 198 | ans = 1.14566186556927296_wp + ans * x | |
| 2769 | 198 | ans = -0.514831961591220799_wp + ans * x | |
| 2770 | case (0) | ||
| 2771 | ans = 0.00548696844993141249_wp | ||
| 2772 | 231 | ans = -0.0384087791495198935_wp + ans * x | |
| 2773 | 231 | ans = 0.115226337448559674_wp + ans * x | |
| 2774 | 231 | ans = -0.192043895747599447_wp + ans * x | |
| 2775 | 231 | ans = 0.192043895747599447_wp + ans * x | |
| 2776 | 231 | ans = -0.115226337448559674_wp + ans * x | |
| 2777 | 231 | ans = 0.0384087791495198935_wp + ans * x | |
| 2778 |
3/4✓ Branch 8 → 9 taken 213 times.
✓ Branch 8 → 10 taken 198 times.
✓ Branch 8 → 11 taken 231 times.
✗ Branch 8 → 57 not taken.
|
642 | ans = -0.00548696844993141249_wp + ans * x |
| 2779 | end select | ||
| 2780 | case (3) | ||
| 2781 | 2219 | select case (j_minus_i) | |
| 2782 | case (3) | ||
| 2783 | ans = -5.10397912379972585_wp | ||
| 2784 | 213 | ans = 34.2577803497942384_wp + ans * x | |
| 2785 | 213 | ans = -94.7106481481481524_wp + ans * x | |
| 2786 | 213 | ans = 134.490740740740733_wp + ans * x | |
| 2787 | 213 | ans = -97.2222222222222285_wp + ans * x | |
| 2788 | 213 | ans = 28_wp + ans * x | |
| 2789 | 213 | ans = ans * x | |
| 2790 | 213 | ans = ans * x | |
| 2791 | case (2) | ||
| 2792 | ans = 0.229354209533607689_wp | ||
| 2793 | 198 | ans = -1.4700735168038408_wp + ans * x | |
| 2794 | 198 | ans = 3.65247235082304522_wp + ans * x | |
| 2795 | 198 | ans = -3.8350640860768177_wp + ans * x | |
| 2796 | 198 | ans = 0.150596922153635127_wp + ans * x | |
| 2797 | 198 | ans = 2.85443994341563778_wp + ans * x | |
| 2798 | 198 | ans = -1.43811621227709185_wp + ans * x | |
| 2799 | 198 | ans = -0.288328403635116581_wp + ans * x | |
| 2800 | case (1) | ||
| 2801 | ans = -0.0206457904663923178_wp | ||
| 2802 | 231 | ans = 0.135405949931412889_wp + ans * x | |
| 2803 | 231 | ans = -0.351530349794238695_wp + ans * x | |
| 2804 | 231 | ans = 0.403592249657064472_wp + ans * x | |
| 2805 | 231 | ans = -0.0390089163237311368_wp + ans * x | |
| 2806 | 231 | ans = -0.414094650205761305_wp + ans * x | |
| 2807 | 231 | ans = 0.429698216735253768_wp + ans * x | |
| 2808 | 231 | ans = -0.144718792866941004_wp + ans * x | |
| 2809 | case (0) | ||
| 2810 | ans = 0.00130208333333333326_wp | ||
| 2811 | 238 | ans = -0.00911458333333333391_wp + ans * x | |
| 2812 | 238 | ans = 0.02734375_wp + ans * x | |
| 2813 | 238 | ans = -0.0455729166666666644_wp + ans * x | |
| 2814 | 238 | ans = 0.0455729166666666644_wp + ans * x | |
| 2815 | 238 | ans = -0.02734375_wp + ans * x | |
| 2816 | 238 | ans = 0.00911458333333333391_wp + ans * x | |
| 2817 |
4/5✓ Branch 12 → 13 taken 213 times.
✓ Branch 12 → 14 taken 198 times.
✓ Branch 12 → 15 taken 231 times.
✓ Branch 12 → 16 taken 238 times.
✗ Branch 12 → 57 not taken.
|
880 | ans = -0.00130208333333333326_wp + ans * x |
| 2818 | end select | ||
| 2819 | case (4) | ||
| 2820 | 2717 | select case (j_minus_i) | |
| 2821 | case (4) | ||
| 2822 | ans = 1.49350851337448565_wp | ||
| 2823 | 213 | ans = -9.45057253086419813_wp + ans * x | |
| 2824 | 213 | ans = 23.3702777777777762_wp + ans * x | |
| 2825 | 213 | ans = -26.6388888888888893_wp + ans * x | |
| 2826 | 213 | ans = 11.6666666666666661_wp + ans * x | |
| 2827 | 213 | ans = ans * x | |
| 2828 | 213 | ans = ans * x | |
| 2829 | 213 | ans = ans * x | |
| 2830 | case (3) | ||
| 2831 | ans = -0.173158153292181066_wp | ||
| 2832 | 198 | ans = 1.00398706275720162_wp + ans * x | |
| 2833 | 198 | ans = -1.96947862654320982_wp + ans * x | |
| 2834 | 198 | ans = 0.726710005144032944_wp + ans * x | |
| 2835 | 198 | ans = 2.07523623971193416_wp + ans * x | |
| 2836 | 198 | ans = -1.52546473765432089_wp + ans * x | |
| 2837 | 198 | ans = -0.953042258230452632_wp + ans * x | |
| 2838 | 198 | ans = 0.440991538065843625_wp + ans * x | |
| 2839 | case (2) | ||
| 2840 | ans = 0.0351751800411522625_wp | ||
| 2841 | 231 | ans = -0.208120010288065843_wp + ans * x | |
| 2842 | 231 | ans = 0.418122530864197539_wp + ans * x | |
| 2843 | 231 | ans = -0.121412551440329225_wp + ans * x | |
| 2844 | 231 | ans = -0.693504115226337481_wp + ans * x | |
| 2845 | 231 | ans = 0.789202469135802498_wp + ans * x | |
| 2846 | 231 | ans = 0.0929991769547325042_wp + ans * x | |
| 2847 | 231 | ans = -0.374218930041152253_wp + ans * x | |
| 2848 | case (1) | ||
| 2849 | ans = -0.00597708333333333338_wp | ||
| 2850 | 238 | ans = 0.0381062500000000012_wp + ans * x | |
| 2851 | 238 | ans = -0.0919187499999999935_wp + ans * x | |
| 2852 | 238 | ans = 0.0785312499999999969_wp + ans * x | |
| 2853 | 238 | ans = 0.0708020833333333349_wp + ans * x | |
| 2854 | 238 | ans = -0.221681249999999996_wp + ans * x | |
| 2855 | 238 | ans = 0.193360416666666673_wp + ans * x | |
| 2856 | 238 | ans = -0.0617562499999999986_wp + ans * x | |
| 2857 | case (0) | ||
| 2858 | ans = 0.000533333333333333359_wp | ||
| 2859 | 246 | ans = -0.0037333333333333333_wp + ans * x | |
| 2860 | 246 | ans = 0.0111999999999999999_wp + ans * x | |
| 2861 | 246 | ans = -0.0186666666666666682_wp + ans * x | |
| 2862 | 246 | ans = 0.0186666666666666682_wp + ans * x | |
| 2863 | 246 | ans = -0.0111999999999999999_wp + ans * x | |
| 2864 | 246 | ans = 0.0037333333333333333_wp + ans * x | |
| 2865 |
5/6✓ Branch 17 → 18 taken 213 times.
✓ Branch 17 → 19 taken 198 times.
✓ Branch 17 → 20 taken 231 times.
✓ Branch 17 → 21 taken 238 times.
✓ Branch 17 → 22 taken 246 times.
✗ Branch 17 → 57 not taken.
|
1126 | ans = -0.000533333333333333359_wp + ans * x |
| 2866 | end select | ||
| 2867 | case (5) | ||
| 2868 | 3212 | select case (j_minus_i) | |
| 2869 | case (5) | ||
| 2870 | ans = -0.311649074074074051_wp | ||
| 2871 | 213 | ans = 1.74857407407407406_wp + ans * x | |
| 2872 | 213 | ans = -3.43000000000000016_wp + ans * x | |
| 2873 | 213 | ans = 2.33333333333333348_wp + ans * x | |
| 2874 | 213 | ans = ans * x | |
| 2875 | 213 | ans = ans * x | |
| 2876 | 213 | ans = ans * x | |
| 2877 | 213 | ans = ans * x | |
| 2878 | case (4) | ||
| 2879 | ans = 0.08835092592592593_wp | ||
| 2880 | 198 | ans = -0.432969444444444462_wp + ans * x | |
| 2881 | 198 | ans = 0.516813888888888906_wp + ans * x | |
| 2882 | 198 | ans = 0.504226851851851898_wp + ans * x | |
| 2883 | 198 | ans = -0.902902777777777832_wp + ans * x | |
| 2884 | 198 | ans = -0.616019444444444453_wp + ans * x | |
| 2885 | 198 | ans = 0.493234259259259233_wp + ans * x | |
| 2886 | 198 | ans = 0.340258333333333329_wp + ans * x | |
| 2887 | case (3) | ||
| 2888 | ans = -0.036649074074074077_wp | ||
| 2889 | 231 | ans = 0.185487037037037034_wp + ans * x | |
| 2890 | 231 | ans = -0.225633333333333325_wp + ans * x | |
| 2891 | 231 | ans = -0.313962962962962944_wp + ans * x | |
| 2892 | 231 | ans = 0.715037037037037027_wp + ans * x | |
| 2893 | 231 | ans = 0.229599999999999999_wp + ans * x | |
| 2894 | 231 | ans = -0.825896296296296351_wp + ans * x | |
| 2895 | 231 | ans = -0.00900740740740740668_wp + ans * x | |
| 2896 | case (2) | ||
| 2897 | ans = 0.0127336419753086415_wp | ||
| 2898 | 238 | ans = -0.0710564814814814844_wp + ans * x | |
| 2899 | 238 | ans = 0.117658333333333337_wp + ans * x | |
| 2900 | 238 | ans = 0.0574583333333333335_wp + ans * x | |
| 2901 | 238 | ans = -0.370124999999999982_wp + ans * x | |
| 2902 | 238 | ans = 0.247274999999999995_wp + ans * x | |
| 2903 | 238 | ans = 0.250775000000000026_wp + ans * x | |
| 2904 | 238 | ans = -0.281025000000000025_wp + ans * x | |
| 2905 | case (1) | ||
| 2906 | ans = -0.00289135802469135802_wp | ||
| 2907 | 246 | ans = 0.0180790123456790117_wp + ans * x | |
| 2908 | 246 | ans = -0.0412740740740740741_wp + ans * x | |
| 2909 | 246 | ans = 0.0255802469135802471_wp + ans * x | |
| 2910 | 246 | ans = 0.0608395061728395081_wp + ans * x | |
| 2911 | 246 | ans = -0.140207407407407419_wp + ans * x | |
| 2912 | 246 | ans = 0.115871604938271602_wp + ans * x | |
| 2913 | 246 | ans = -0.0363061728395061706_wp + ans * x | |
| 2914 | case (0) | ||
| 2915 | ans = 0.000308641975308641969_wp | ||
| 2916 | 252 | ans = -0.00216049382716049362_wp + ans * x | |
| 2917 | 252 | ans = 0.0064814814814814813_wp + ans * x | |
| 2918 | 252 | ans = -0.0108024691358024685_wp + ans * x | |
| 2919 | 252 | ans = 0.0108024691358024685_wp + ans * x | |
| 2920 | 252 | ans = -0.0064814814814814813_wp + ans * x | |
| 2921 | 252 | ans = 0.00216049382716049362_wp + ans * x | |
| 2922 |
6/7✓ Branch 23 → 24 taken 213 times.
✓ Branch 23 → 25 taken 198 times.
✓ Branch 23 → 26 taken 231 times.
✓ Branch 23 → 27 taken 238 times.
✓ Branch 23 → 28 taken 246 times.
✓ Branch 23 → 29 taken 252 times.
✗ Branch 23 → 57 not taken.
|
1378 | ans = -0.000308641975308641969_wp + ans * x |
| 2923 | end select | ||
| 2924 | case (6) | ||
| 2925 | 3702 | select case (j_minus_i) | |
| 2926 | case (6) | ||
| 2927 | ans = 0.0457483623078861201_wp | ||
| 2928 | 213 | ans = -0.201666666666666661_wp + ans * x | |
| 2929 | 213 | ans = 0.233333333333333337_wp + ans * x | |
| 2930 | 213 | ans = ans * x | |
| 2931 | 213 | ans = ans * x | |
| 2932 | 213 | ans = ans * x | |
| 2933 | 213 | ans = ans * x | |
| 2934 | 213 | ans = ans * x | |
| 2935 | case (5) | ||
| 2936 | ans = -0.0320294154698916589_wp | ||
| 2937 | 198 | ans = 0.118571869488536152_wp + ans * x | |
| 2938 | 198 | ans = -0.0159510582010582019_wp + ans * x | |
| 2939 | 198 | ans = -0.257140652557319216_wp + ans * x | |
| 2940 | 198 | ans = -0.09880731922398589_wp + ans * x | |
| 2941 | 198 | ans = 0.269048941798941788_wp + ans * x | |
| 2942 | 198 | ans = 0.276905202821869478_wp + ans * x | |
| 2943 | 198 | ans = 0.0774150289745527825_wp + ans * x | |
| 2944 | case (4) | ||
| 2945 | ans = 0.0263039178634416719_wp | ||
| 2946 | 231 | ans = -0.105634038800705474_wp + ans * x | |
| 2947 | 231 | ans = 0.0228624338624338619_wp + ans * x | |
| 2948 | 231 | ans = 0.320652557319223985_wp + ans * x | |
| 2949 | 231 | ans = -0.036472663139329807_wp + ans * x | |
| 2950 | 231 | ans = -0.623767195767195748_wp + ans * x | |
| 2951 | 231 | ans = -0.102511463844797174_wp + ans * x | |
| 2952 | 231 | ans = 0.338012597631645262_wp + ans * x | |
| 2953 | case (3) | ||
| 2954 | ans = -0.0169059586797682022_wp | ||
| 2955 | 238 | ans = 0.07849338624338624_wp + ans * x | |
| 2956 | 238 | ans = -0.0585595238095238113_wp + ans * x | |
| 2957 | 238 | ans = -0.228908730158730173_wp + ans * x | |
| 2958 | 238 | ans = 0.282718253968253952_wp + ans * x | |
| 2959 | 238 | ans = 0.387226190476190502_wp + ans * x | |
| 2960 | 238 | ans = -0.512218253968253934_wp + ans * x | |
| 2961 | 238 | ans = -0.160553854875283453_wp + ans * x | |
| 2962 | case (2) | ||
| 2963 | ans = 0.00739959687578735197_wp | ||
| 2964 | 246 | ans = -0.0398483245149911791_wp + ans * x | |
| 2965 | 246 | ans = 0.0573756613756613784_wp + ans * x | |
| 2966 | 246 | ans = 0.0639858906525573173_wp + ans * x | |
| 2967 | 246 | ans = -0.240352733686067022_wp + ans * x | |
| 2968 | 246 | ans = 0.0987089947089947045_wp + ans * x | |
| 2969 | 246 | ans = 0.254574955908289269_wp + ans * x | |
| 2970 | 246 | ans = -0.228708490803728903_wp + ans * x | |
| 2971 | case (1) | ||
| 2972 | ans = -0.00193373645754598127_wp | ||
| 2973 | 252 | ans = 0.0119488536155202829_wp + ans * x | |
| 2974 | 252 | ans = -0.0263227513227513241_wp + ans * x | |
| 2975 | 252 | ans = 0.0121252204585537912_wp + ans * x | |
| 2976 | 252 | ans = 0.0513668430335096973_wp + ans * x | |
| 2977 | 252 | ans = -0.107010582010582014_wp + ans * x | |
| 2978 | 252 | ans = 0.0864638447971781271_wp + ans * x | |
| 2979 | 252 | ans = -0.026864449483497102_wp + ans * x | |
| 2980 | case (0) | ||
| 2981 | ans = 0.000226757369614512483_wp | ||
| 2982 | 243 | ans = -0.0015873015873015873_wp + ans * x | |
| 2983 | 243 | ans = 0.00476190476190476233_wp + ans * x | |
| 2984 | 243 | ans = -0.00793650793650793607_wp + ans * x | |
| 2985 | 243 | ans = 0.00793650793650793607_wp + ans * x | |
| 2986 | 243 | ans = -0.00476190476190476233_wp + ans * x | |
| 2987 | 243 | ans = 0.0015873015873015873_wp + ans * x | |
| 2988 |
7/8✓ Branch 30 → 31 taken 213 times.
✓ Branch 30 → 32 taken 198 times.
✓ Branch 30 → 33 taken 231 times.
✓ Branch 30 → 34 taken 238 times.
✓ Branch 30 → 35 taken 246 times.
✓ Branch 30 → 36 taken 252 times.
✓ Branch 30 → 37 taken 243 times.
✗ Branch 30 → 57 not taken.
|
1621 | ans = -0.000226757369614512483_wp + ans * x |
| 2989 | end select | ||
| 2990 | case (7) | ||
| 2991 | 62711 | select case (j_minus_i) | |
| 2992 | case (7) | ||
| 2993 | ans = -0.00431405895691610013_wp | ||
| 2994 | 213 | ans = 0.0111111111111111115_wp + ans * x | |
| 2995 | 213 | ans = ans * x | |
| 2996 | 213 | ans = ans * x | |
| 2997 | 213 | ans = ans * x | |
| 2998 | 213 | ans = ans * x | |
| 2999 | 213 | ans = ans * x | |
| 3000 | 213 | ans = ans * x | |
| 3001 | case (6) | ||
| 3002 | ans = 0.00838435374149659914_wp | ||
| 3003 | 198 | ans = -0.0190873015873015868_wp + ans * x | |
| 3004 | 198 | ans = -0.0239285714285714275_wp + ans * x | |
| 3005 | 198 | ans = 0.0156746031746031744_wp + ans * x | |
| 3006 | 198 | ans = 0.0712301587301587269_wp + ans * x | |
| 3007 | 198 | ans = 0.0760714285714285676_wp + ans * x | |
| 3008 | 198 | ans = 0.0364682539682539691_wp + ans * x | |
| 3009 | 198 | ans = 0.0067970521541950114_wp + ans * x | |
| 3010 | case (5) | ||
| 3011 | ans = -0.0138378684807256239_wp | ||
| 3012 | 231 | ans = 0.0396031746031746054_wp + ans * x | |
| 3013 | 231 | ans = 0.0376190476190476214_wp + ans * x | |
| 3014 | 231 | ans = -0.0968253968253968283_wp + ans * x | |
| 3015 | 231 | ans = -0.193650793650793657_wp + ans * x | |
| 3016 | 231 | ans = 0.0342857142857142874_wp + ans * x | |
| 3017 | 231 | ans = 0.289523809523809517_wp + ans * x | |
| 3018 | 231 | ans = 0.17160997732426303_wp + ans * x | |
| 3019 | case (4) | ||
| 3020 | ans = 0.0157917611489040051_wp | ||
| 3021 | 238 | ans = -0.0572619047619047639_wp + ans * x | |
| 3022 | 238 | ans = -0.0153571428571428574_wp + ans * x | |
| 3023 | 238 | ans = 0.2009920634920635_wp + ans * x | |
| 3024 | 238 | ans = 0.102976190476190471_wp + ans * x | |
| 3025 | 238 | ans = -0.447976190476190472_wp + ans * x | |
| 3026 | 238 | ans = -0.281309523809523787_wp + ans * x | |
| 3027 | 238 | ans = 0.268327664399092947_wp + ans * x | |
| 3028 | case (3) | ||
| 3029 | ans = -0.0119860166288737711_wp | ||
| 3030 | 246 | ans = 0.0532804232804232822_wp + ans * x | |
| 3031 | 246 | ans = -0.0273015873015873024_wp + ans * x | |
| 3032 | 246 | ans = -0.182010582010582012_wp + ans * x | |
| 3033 | 246 | ans = 0.160846560846560849_wp + ans * x | |
| 3034 | 246 | ans = 0.386031746031746059_wp + ans * x | |
| 3035 | 246 | ans = -0.374179894179894168_wp + ans * x | |
| 3036 | 246 | ans = -0.213817082388510965_wp + ans * x | |
| 3037 | case (2) | ||
| 3038 | ans = 0.00579176114890400575_wp | ||
| 3039 | 252 | ans = -0.0306216931216931228_wp + ans * x | |
| 3040 | 252 | ans = 0.0406746031746031758_wp + ans * x | |
| 3041 | 252 | ans = 0.0611772486772486773_wp + ans * x | |
| 3042 | 252 | ans = -0.194113756613756627_wp + ans * x | |
| 3043 | 252 | ans = 0.0509920634920634913_wp + ans * x | |
| 3044 | 252 | ans = 0.251653439153439129_wp + ans * x | |
| 3045 | 252 | ans = -0.209136432350718077_wp + ans * x | |
| 3046 | case (1) | ||
| 3047 | ans = -0.00161564625850340129_wp | ||
| 3048 | 243 | ans = 0.00992063492063492008_wp + ans * x | |
| 3049 | 243 | ans = -0.0214285714285714288_wp + ans * x | |
| 3050 | 243 | ans = 0.00793650793650793607_wp + ans * x | |
| 3051 | 243 | ans = 0.0476190476190476164_wp + ans * x | |
| 3052 | 243 | ans = -0.0952380952380952328_wp + ans * x | |
| 3053 | 243 | ans = 0.0761904761904761973_wp + ans * x | |
| 3054 | 243 | ans = -0.023582766439909298_wp + ans * x | |
| 3055 | case (0) | ||
| 3056 | ans = 0.000198412698412698413_wp | ||
| 3057 | 247 | ans = -0.00138888888888888894_wp + ans * x | |
| 3058 | 247 | ans = 0.00416666666666666661_wp + ans * x | |
| 3059 | 247 | ans = -0.00694444444444444406_wp + ans * x | |
| 3060 | 247 | ans = 0.00694444444444444406_wp + ans * x | |
| 3061 | 247 | ans = -0.00416666666666666661_wp + ans * x | |
| 3062 | 247 | ans = 0.00138888888888888894_wp + ans * x | |
| 3063 |
8/9✓ Branch 38 → 39 taken 213 times.
✓ Branch 38 → 40 taken 198 times.
✓ Branch 38 → 41 taken 231 times.
✓ Branch 38 → 42 taken 238 times.
✓ Branch 38 → 43 taken 246 times.
✓ Branch 38 → 44 taken 252 times.
✓ Branch 38 → 45 taken 243 times.
✓ Branch 38 → 46 taken 247 times.
✗ Branch 38 → 57 not taken.
|
1868 | ans = -0.000198412698412698413_wp + ans * x |
| 3064 | end select | ||
| 3065 | case (8) | ||
| 3066 |
9/10✓ Branch 2 → 3 taken 213 times.
✓ Branch 2 → 5 taken 411 times.
✓ Branch 2 → 8 taken 642 times.
✓ Branch 2 → 12 taken 880 times.
✓ Branch 2 → 17 taken 1126 times.
✓ Branch 2 → 23 taken 1378 times.
✓ Branch 2 → 30 taken 1621 times.
✓ Branch 2 → 38 taken 1868 times.
✓ Branch 2 → 47 taken 60630 times.
✗ Branch 2 → 57 not taken.
|
68769 | select case (j_minus_i) |
| 3067 | case (8) | ||
| 3068 | ans = 0.000198412698412698413_wp | ||
| 3069 | 6616 | ans = ans * x | |
| 3070 | 6616 | ans = ans * x | |
| 3071 | 6616 | ans = ans * x | |
| 3072 | 6616 | ans = ans * x | |
| 3073 | 6616 | ans = ans * x | |
| 3074 | 6616 | ans = ans * x | |
| 3075 | 6616 | ans = ans * x | |
| 3076 | case (7) | ||
| 3077 | ans = -0.0015873015873015873_wp | ||
| 3078 | 6644 | ans = 0.00138888888888888894_wp + ans * x | |
| 3079 | 6644 | ans = 0.00416666666666666661_wp + ans * x | |
| 3080 | 6644 | ans = 0.00694444444444444406_wp + ans * x | |
| 3081 | 6644 | ans = 0.00694444444444444406_wp + ans * x | |
| 3082 | 6644 | ans = 0.00416666666666666661_wp + ans * x | |
| 3083 | 6644 | ans = 0.00138888888888888894_wp + ans * x | |
| 3084 | 6644 | ans = 0.000198412698412698413_wp + ans * x | |
| 3085 | case (6) | ||
| 3086 | ans = 0.00555555555555555577_wp | ||
| 3087 | 6675 | ans = -0.00972222222222222238_wp + ans * x | |
| 3088 | 6675 | ans = -0.0208333333333333322_wp + ans * x | |
| 3089 | 6675 | ans = -0.00694444444444444406_wp + ans * x | |
| 3090 | 6675 | ans = 0.0486111111111111119_wp + ans * x | |
| 3091 | 6675 | ans = 0.0958333333333333398_wp + ans * x | |
| 3092 | 6675 | ans = 0.0763888888888888951_wp + ans * x | |
| 3093 | 6675 | ans = 0.0236111111111111105_wp + ans * x | |
| 3094 | case (5) | ||
| 3095 | ans = -0.0111111111111111115_wp | ||
| 3096 | 6715 | ans = 0.0291666666666666671_wp + ans * x | |
| 3097 | 6715 | ans = 0.0374999999999999986_wp + ans * x | |
| 3098 | 6715 | ans = -0.0625_wp + ans * x | |
| 3099 | 6715 | ans = -0.1875_wp + ans * x | |
| 3100 | 6715 | ans = -0.0374999999999999986_wp + ans * x | |
| 3101 | 6715 | ans = 0.262500000000000011_wp + ans * x | |
| 3102 | 6715 | ans = 0.212499999999999994_wp + ans * x | |
| 3103 | case (4) | ||
| 3104 | ans = 0.0138888888888888881_wp | ||
| 3105 | 6761 | ans = -0.0486111111111111119_wp + ans * x | |
| 3106 | 6761 | ans = -0.0208333333333333322_wp + ans * x | |
| 3107 | 6761 | ans = 0.173611111111111105_wp + ans * x | |
| 3108 | 6761 | ans = 0.131944444444444448_wp + ans * x | |
| 3109 | 6761 | ans = -0.395833333333333315_wp + ans * x | |
| 3110 | 6761 | ans = -0.34027777777777779_wp + ans * x | |
| 3111 | 6761 | ans = 0.243055555555555552_wp + ans * x | |
| 3112 | case (3) | ||
| 3113 | ans = -0.0111111111111111115_wp | ||
| 3114 | 6799 | ans = 0.0486111111111111119_wp + ans * x | |
| 3115 | 6799 | ans = -0.0208333333333333322_wp + ans * x | |
| 3116 | 6799 | ans = -0.173611111111111105_wp + ans * x | |
| 3117 | 6799 | ans = 0.131944444444444448_wp + ans * x | |
| 3118 | 6799 | ans = 0.395833333333333315_wp + ans * x | |
| 3119 | 6799 | ans = -0.34027777777777779_wp + ans * x | |
| 3120 | 6799 | ans = -0.243055555555555552_wp + ans * x | |
| 3121 | case (2) | ||
| 3122 | ans = 0.00555555555555555577_wp | ||
| 3123 | 6818 | ans = -0.0291666666666666671_wp + ans * x | |
| 3124 | 6818 | ans = 0.0374999999999999986_wp + ans * x | |
| 3125 | 6818 | ans = 0.0625_wp + ans * x | |
| 3126 | 6818 | ans = -0.1875_wp + ans * x | |
| 3127 | 6818 | ans = 0.0374999999999999986_wp + ans * x | |
| 3128 | 6818 | ans = 0.262500000000000011_wp + ans * x | |
| 3129 | 6818 | ans = -0.212499999999999994_wp + ans * x | |
| 3130 | case (1) | ||
| 3131 | ans = -0.0015873015873015873_wp | ||
| 3132 | 6804 | ans = 0.00972222222222222238_wp + ans * x | |
| 3133 | 6804 | ans = -0.0208333333333333322_wp + ans * x | |
| 3134 | 6804 | ans = 0.00694444444444444406_wp + ans * x | |
| 3135 | 6804 | ans = 0.0486111111111111119_wp + ans * x | |
| 3136 | 6804 | ans = -0.0958333333333333398_wp + ans * x | |
| 3137 | 6804 | ans = 0.0763888888888888951_wp + ans * x | |
| 3138 | 6804 | ans = -0.0236111111111111105_wp + ans * x | |
| 3139 | case (0) | ||
| 3140 | ans = 0.000198412698412698413_wp | ||
| 3141 | 6798 | ans = -0.00138888888888888894_wp + ans * x | |
| 3142 | 6798 | ans = 0.00416666666666666661_wp + ans * x | |
| 3143 | 6798 | ans = -0.00694444444444444406_wp + ans * x | |
| 3144 | 6798 | ans = 0.00694444444444444406_wp + ans * x | |
| 3145 | 6798 | ans = -0.00416666666666666661_wp + ans * x | |
| 3146 | 6798 | ans = 0.00138888888888888894_wp + ans * x | |
| 3147 |
9/10✓ Branch 47 → 48 taken 6616 times.
✓ Branch 47 → 49 taken 6644 times.
✓ Branch 47 → 50 taken 6675 times.
✓ Branch 47 → 51 taken 6715 times.
✓ Branch 47 → 52 taken 6761 times.
✓ Branch 47 → 53 taken 6799 times.
✓ Branch 47 → 54 taken 6818 times.
✓ Branch 47 → 55 taken 6804 times.
✓ Branch 47 → 56 taken 6798 times.
✗ Branch 47 → 57 not taken.
|
60630 | ans = -0.000198412698412698413_wp + ans * x |
| 3148 | end select | ||
| 3149 | end select | ||
| 3150 | |||
| 3151 |
1/2✗ Branch 57 → 58 not taken.
✓ Branch 57 → 59 taken 68769 times.
|
68769 | if (scaled) then |
| 3152 | ✗ | ans = 9 * ans / (1 + j) | |
| 3153 | end if | ||
| 3154 | |||
| 3155 | 68769 | end function | |
| 3156 | |||
| 3157 | end submodule | ||
| 3158 |