/dports/science/cp2k-data/cp2k-7.1.0/src/grid/ |
H A D | collocate_fast_5.f90 | 141 coef_xy(1, 1) = coef_xy(1, 1) + coef_xyz(1)*pol_z(1, 0, kg) 142 coef_xy(2, 1) = coef_xy(2, 1) + coef_xyz(1)*pol_z(2, 0, kg) 217 coef_xy(1, 1) = coef_xy(1, 1) + coef_xyz(1)*pol_z(1, 0, kg) 218 coef_xy(2, 1) = coef_xy(2, 1) + coef_xyz(1)*pol_z(2, 0, kg) 219 coef_xy(1, 2) = coef_xy(1, 2) + coef_xyz(2)*pol_z(1, 0, kg) 220 coef_xy(2, 2) = coef_xy(2, 2) + coef_xyz(2)*pol_z(2, 0, kg) 221 coef_xy(1, 3) = coef_xy(1, 3) + coef_xyz(3)*pol_z(1, 0, kg) 222 coef_xy(2, 3) = coef_xy(2, 3) + coef_xyz(3)*pol_z(2, 0, kg) 223 coef_xy(1, 1) = coef_xy(1, 1) + coef_xyz(4)*pol_z(1, 1, kg) 224 coef_xy(2, 1) = coef_xy(2, 1) + coef_xyz(4)*pol_z(2, 1, kg) [all …]
|
H A D | collocate_fast_6.f90 | 230 coef_xy(:, 1) = coef_xy(:, 1) + coef_xyz(1)*pol_z(:, 0, kg) 231 coef_xy(:, 2) = coef_xy(:, 2) + coef_xyz(2)*pol_z(:, 0, kg) 232 coef_xy(:, 3) = coef_xy(:, 3) + coef_xyz(3)*pol_z(:, 0, kg) 233 coef_xy(:, 1) = coef_xy(:, 1) + coef_xyz(4)*pol_z(:, 1, kg) 491 coef_xy(1, 1) = coef_xy(1, 1) + coef_xyz(1)*pol_z(1, 0, kg) 492 coef_xy(2, 1) = coef_xy(2, 1) + coef_xyz(1)*pol_z(2, 0, kg) 493 coef_xy(1, 2) = coef_xy(1, 2) + coef_xyz(2)*pol_z(1, 0, kg) 494 coef_xy(2, 2) = coef_xy(2, 2) + coef_xyz(2)*pol_z(2, 0, kg) 495 coef_xy(1, 3) = coef_xy(1, 3) + coef_xyz(3)*pol_z(1, 0, kg) 496 coef_xy(2, 3) = coef_xy(2, 3) + coef_xyz(3)*pol_z(2, 0, kg) [all …]
|
H A D | collocate_fast_1.f90 | 436 coef_xy(1, 1) = coef_xy(1, 1) + coef_xyz(1)*pol_z(1, 0, kg) 437 coef_xy(2, 1) = coef_xy(2, 1) + coef_xyz(1)*pol_z(2, 0, kg) 438 coef_xy(1, 2) = coef_xy(1, 2) + coef_xyz(2)*pol_z(1, 0, kg) 439 coef_xy(2, 2) = coef_xy(2, 2) + coef_xyz(2)*pol_z(2, 0, kg) 440 coef_xy(1, 3) = coef_xy(1, 3) + coef_xyz(3)*pol_z(1, 0, kg) 441 coef_xy(2, 3) = coef_xy(2, 3) + coef_xyz(3)*pol_z(2, 0, kg) 442 coef_xy(1, 4) = coef_xy(1, 4) + coef_xyz(4)*pol_z(1, 0, kg) 443 coef_xy(2, 4) = coef_xy(2, 4) + coef_xyz(4)*pol_z(2, 0, kg) 444 coef_xy(1, 5) = coef_xy(1, 5) + coef_xyz(5)*pol_z(1, 0, kg) 445 coef_xy(2, 5) = coef_xy(2, 5) + coef_xyz(5)*pol_z(2, 0, kg) [all …]
|
H A D | collocate_fast_3.f90 | 141 coef_xy(1, 1) = coef_xy(1, 1) + coef_xyz(1)*pol_z(1, 0, kg) 142 coef_xy(2, 1) = coef_xy(2, 1) + coef_xyz(1)*pol_z(2, 0, kg) 313 coef_xy(1, 1) = coef_xy(1, 1) + coef_xyz(1)*pol_z(1, 0, kg) 314 coef_xy(2, 1) = coef_xy(2, 1) + coef_xyz(1)*pol_z(2, 0, kg) 315 coef_xy(1, 2) = coef_xy(1, 2) + coef_xyz(2)*pol_z(1, 0, kg) 316 coef_xy(2, 2) = coef_xy(2, 2) + coef_xyz(2)*pol_z(2, 0, kg) 317 coef_xy(1, 3) = coef_xy(1, 3) + coef_xyz(3)*pol_z(1, 0, kg) 318 coef_xy(2, 3) = coef_xy(2, 3) + coef_xyz(3)*pol_z(2, 0, kg) 319 coef_xy(1, 4) = coef_xy(1, 4) + coef_xyz(4)*pol_z(1, 0, kg) 320 coef_xy(2, 4) = coef_xy(2, 4) + coef_xyz(4)*pol_z(2, 0, kg) [all …]
|
H A D | collocate_fast_2.f90 | 314 coef_xy(:, 1) = coef_xy(:, 1) + coef_xyz(1)*pol_z(:, 0, kg) 315 coef_xy(:, 2) = coef_xy(:, 2) + coef_xyz(2)*pol_z(:, 0, kg) 316 coef_xy(:, 3) = coef_xy(:, 3) + coef_xyz(3)*pol_z(:, 0, kg) 317 coef_xy(:, 4) = coef_xy(:, 4) + coef_xyz(4)*pol_z(:, 0, kg) 318 coef_xy(:, 5) = coef_xy(:, 5) + coef_xyz(5)*pol_z(:, 0, kg) 319 coef_xy(:, 6) = coef_xy(:, 6) + coef_xyz(6)*pol_z(:, 0, kg) 320 coef_xy(:, 1) = coef_xy(:, 1) + coef_xyz(7)*pol_z(:, 1, kg) 321 coef_xy(:, 2) = coef_xy(:, 2) + coef_xyz(8)*pol_z(:, 1, kg) 322 coef_xy(:, 4) = coef_xy(:, 4) + coef_xyz(9)*pol_z(:, 1, kg) 412 coef_xy(:, 1) = coef_xy(:, 1) + coef_xyz(1)*pol_z(:, 0, kg) [all …]
|
H A D | collocate_fast_4.f90 | 141 coef_xy(:, 1) = coef_xy(:, 1) + coef_xyz(1)*pol_z(:, 0, kg) 222 coef_xy(:, 1) = coef_xy(:, 1) + coef_xyz(1)*pol_z(:, 0, kg) 223 coef_xy(:, 2) = coef_xy(:, 2) + coef_xyz(2)*pol_z(:, 0, kg) 224 coef_xy(:, 3) = coef_xy(:, 3) + coef_xyz(3)*pol_z(:, 0, kg) 225 coef_xy(:, 1) = coef_xy(:, 1) + coef_xyz(4)*pol_z(:, 1, kg) 302 coef_xy(1, 1) = coef_xy(1, 1) + coef_xyz(1)*pol_z(1, 0, kg) 303 coef_xy(2, 1) = coef_xy(2, 1) + coef_xyz(1)*pol_z(2, 0, kg) 304 coef_xy(1, 2) = coef_xy(1, 2) + coef_xyz(2)*pol_z(1, 0, kg) 305 coef_xy(2, 2) = coef_xy(2, 2) + coef_xyz(2)*pol_z(2, 0, kg) 306 coef_xy(1, 3) = coef_xy(1, 3) + coef_xyz(3)*pol_z(1, 0, kg) [all …]
|
H A D | integrate_fast_6.f90 | 46 coef_xy = 0.0_dp 173 coef_xy(1, 1) = coef_xy(1, 1) + coef_x(1, 0)*pol_y(1, 0, jg) 174 coef_xy(2, 1) = coef_xy(2, 1) + coef_x(2, 0)*pol_y(1, 0, jg) 175 coef_xy(1, 1) = coef_xy(1, 1) + coef_x(3, 0)*pol_y(2, 0, jg) 176 coef_xy(2, 1) = coef_xy(2, 1) + coef_x(4, 0)*pol_y(2, 0, jg) 262 coef_xy(:, 1) = coef_xy(:, 1) + coef_x(1:2, 0)*pol_y(1, 0, jg) 263 coef_xy(:, 1) = coef_xy(:, 1) + coef_x(3:4, 0)*pol_y(2, 0, jg) 264 coef_xy(:, 2) = coef_xy(:, 2) + coef_x(1:2, 1)*pol_y(1, 0, jg) 265 coef_xy(:, 2) = coef_xy(:, 2) + coef_x(3:4, 1)*pol_y(2, 0, jg) 266 coef_xy(:, 3) = coef_xy(:, 3) + coef_x(1:2, 0)*pol_y(1, 1, jg) [all …]
|
H A D | integrate_fast_4.f90 | 46 coef_xy = 0.0_dp 170 coef_xy(:, 1) = coef_xy(:, 1) + coef_x(1:2, 0)*pol_y(1, 0, jg) 171 coef_xy(:, 1) = coef_xy(:, 1) + coef_x(3:4, 0)*pol_y(2, 0, jg) 254 coef_xy(:, 1) = coef_xy(:, 1) + coef_x(1:2, 0)*pol_y(1, 0, jg) 255 coef_xy(:, 1) = coef_xy(:, 1) + coef_x(3:4, 0)*pol_y(2, 0, jg) 256 coef_xy(:, 2) = coef_xy(:, 2) + coef_x(1:2, 1)*pol_y(1, 0, jg) 257 coef_xy(:, 2) = coef_xy(:, 2) + coef_x(3:4, 1)*pol_y(2, 0, jg) 258 coef_xy(:, 3) = coef_xy(:, 3) + coef_x(1:2, 0)*pol_y(1, 1, jg) 259 coef_xy(:, 3) = coef_xy(:, 3) + coef_x(3:4, 0)*pol_y(2, 1, jg) 579 coef_xy(1, 1) = coef_xy(1, 1) + coef_x(1, 0)*pol_y(1, 0, jg) [all …]
|
H A D | integrate_fast_1.f90 | 171 coef_xy(1, 1) = coef_xy(1, 1) + coef_x(1, 0)*pol_y(1, 0, jg) 172 coef_xy(2, 1) = coef_xy(2, 1) + coef_x(2, 0)*pol_y(1, 0, jg) 173 coef_xy(1, 1) = coef_xy(1, 1) + coef_x(3, 0)*pol_y(2, 0, jg) 174 coef_xy(2, 1) = coef_xy(2, 1) + coef_x(4, 0)*pol_y(2, 0, jg) 262 coef_xy(1, 1) = coef_xy(1, 1) + coef_x(1, 0)*pol_y(1, 0, jg) 263 coef_xy(2, 1) = coef_xy(2, 1) + coef_x(2, 0)*pol_y(1, 0, jg) 264 coef_xy(1, 1) = coef_xy(1, 1) + coef_x(3, 0)*pol_y(2, 0, jg) 265 coef_xy(2, 1) = coef_xy(2, 1) + coef_x(4, 0)*pol_y(2, 0, jg) 266 coef_xy(1, 2) = coef_xy(1, 2) + coef_x(1, 1)*pol_y(1, 0, jg) 267 coef_xy(2, 2) = coef_xy(2, 2) + coef_x(2, 1)*pol_y(1, 0, jg) [all …]
|
H A D | integrate_fast_3.f90 | 46 coef_xy = 0.0_dp 171 coef_xy(:, 1) = coef_xy(:, 1) + coef_x(1:2, 0)*pol_y(1, 0, jg) 172 coef_xy(:, 1) = coef_xy(:, 1) + coef_x(3:4, 0)*pol_y(2, 0, jg) 352 coef_xy(:, 1) = coef_xy(:, 1) + coef_x(1:2, 0)*pol_y(1, 0, jg) 353 coef_xy(:, 1) = coef_xy(:, 1) + coef_x(3:4, 0)*pol_y(2, 0, jg) 354 coef_xy(:, 2) = coef_xy(:, 2) + coef_x(1:2, 1)*pol_y(1, 0, jg) 355 coef_xy(:, 2) = coef_xy(:, 2) + coef_x(3:4, 1)*pol_y(2, 0, jg) 356 coef_xy(:, 3) = coef_xy(:, 3) + coef_x(1:2, 2)*pol_y(1, 0, jg) 357 coef_xy(:, 3) = coef_xy(:, 3) + coef_x(3:4, 2)*pol_y(2, 0, jg) 358 coef_xy(:, 4) = coef_xy(:, 4) + coef_x(1:2, 0)*pol_y(1, 1, jg) [all …]
|
H A D | integrate_fast_2.f90 | 170 coef_xy(1, 1) = coef_xy(1, 1) + coef_x(1, 0)*pol_y(1, 0, jg) 171 coef_xy(2, 1) = coef_xy(2, 1) + coef_x(2, 0)*pol_y(1, 0, jg) 172 coef_xy(1, 1) = coef_xy(1, 1) + coef_x(3, 0)*pol_y(2, 0, jg) 173 coef_xy(2, 1) = coef_xy(2, 1) + coef_x(4, 0)*pol_y(2, 0, jg) 251 coef_xy(1, 1) = coef_xy(1, 1) + coef_x(1, 0)*pol_y(1, 0, jg) 252 coef_xy(2, 1) = coef_xy(2, 1) + coef_x(2, 0)*pol_y(1, 0, jg) 253 coef_xy(1, 1) = coef_xy(1, 1) + coef_x(3, 0)*pol_y(2, 0, jg) 254 coef_xy(2, 1) = coef_xy(2, 1) + coef_x(4, 0)*pol_y(2, 0, jg) 255 coef_xy(1, 2) = coef_xy(1, 2) + coef_x(1, 1)*pol_y(1, 0, jg) 256 coef_xy(2, 2) = coef_xy(2, 2) + coef_x(2, 1)*pol_y(1, 0, jg) [all …]
|
H A D | integrate_fast_5.f90 | 46 coef_xy = 0.0_dp 172 coef_xy(:, 1) = coef_xy(:, 1) + coef_x(1:2, 0)*pol_y(1, 0, jg) 173 coef_xy(:, 1) = coef_xy(:, 1) + coef_x(3:4, 0)*pol_y(2, 0, jg) 433 coef_xy(:, 1) = coef_xy(:, 1) + coef_x(1:2, 0)*pol_y(1, 0, jg) 434 coef_xy(:, 1) = coef_xy(:, 1) + coef_x(3:4, 0)*pol_y(2, 0, jg) 435 coef_xy(:, 2) = coef_xy(:, 2) + coef_x(1:2, 1)*pol_y(1, 0, jg) 436 coef_xy(:, 2) = coef_xy(:, 2) + coef_x(3:4, 1)*pol_y(2, 0, jg) 437 coef_xy(:, 3) = coef_xy(:, 3) + coef_x(1:2, 2)*pol_y(1, 0, jg) 438 coef_xy(:, 3) = coef_xy(:, 3) + coef_x(3:4, 2)*pol_y(2, 0, jg) 439 coef_xy(:, 4) = coef_xy(:, 4) + coef_x(1:2, 3)*pol_y(1, 0, jg) [all …]
|
/dports/science/cp2k/cp2k-2e995eec7fd208c8a72d9544807bd8b8ba8cd1cc/src/grid/ |
H A D | collocate_fast_5.f90 | 141 coef_xy(1, 1) = coef_xy(1, 1) + coef_xyz(1)*pol_z(1, 0, kg) 142 coef_xy(2, 1) = coef_xy(2, 1) + coef_xyz(1)*pol_z(2, 0, kg) 217 coef_xy(1, 1) = coef_xy(1, 1) + coef_xyz(1)*pol_z(1, 0, kg) 218 coef_xy(2, 1) = coef_xy(2, 1) + coef_xyz(1)*pol_z(2, 0, kg) 219 coef_xy(1, 2) = coef_xy(1, 2) + coef_xyz(2)*pol_z(1, 0, kg) 220 coef_xy(2, 2) = coef_xy(2, 2) + coef_xyz(2)*pol_z(2, 0, kg) 221 coef_xy(1, 3) = coef_xy(1, 3) + coef_xyz(3)*pol_z(1, 0, kg) 222 coef_xy(2, 3) = coef_xy(2, 3) + coef_xyz(3)*pol_z(2, 0, kg) 223 coef_xy(1, 1) = coef_xy(1, 1) + coef_xyz(4)*pol_z(1, 1, kg) 224 coef_xy(2, 1) = coef_xy(2, 1) + coef_xyz(4)*pol_z(2, 1, kg) [all …]
|
H A D | collocate_fast_6.f90 | 230 coef_xy(:, 1) = coef_xy(:, 1) + coef_xyz(1)*pol_z(:, 0, kg) 231 coef_xy(:, 2) = coef_xy(:, 2) + coef_xyz(2)*pol_z(:, 0, kg) 232 coef_xy(:, 3) = coef_xy(:, 3) + coef_xyz(3)*pol_z(:, 0, kg) 233 coef_xy(:, 1) = coef_xy(:, 1) + coef_xyz(4)*pol_z(:, 1, kg) 491 coef_xy(1, 1) = coef_xy(1, 1) + coef_xyz(1)*pol_z(1, 0, kg) 492 coef_xy(2, 1) = coef_xy(2, 1) + coef_xyz(1)*pol_z(2, 0, kg) 493 coef_xy(1, 2) = coef_xy(1, 2) + coef_xyz(2)*pol_z(1, 0, kg) 494 coef_xy(2, 2) = coef_xy(2, 2) + coef_xyz(2)*pol_z(2, 0, kg) 495 coef_xy(1, 3) = coef_xy(1, 3) + coef_xyz(3)*pol_z(1, 0, kg) 496 coef_xy(2, 3) = coef_xy(2, 3) + coef_xyz(3)*pol_z(2, 0, kg) [all …]
|
H A D | collocate_fast_1.f90 | 436 coef_xy(1, 1) = coef_xy(1, 1) + coef_xyz(1)*pol_z(1, 0, kg) 437 coef_xy(2, 1) = coef_xy(2, 1) + coef_xyz(1)*pol_z(2, 0, kg) 438 coef_xy(1, 2) = coef_xy(1, 2) + coef_xyz(2)*pol_z(1, 0, kg) 439 coef_xy(2, 2) = coef_xy(2, 2) + coef_xyz(2)*pol_z(2, 0, kg) 440 coef_xy(1, 3) = coef_xy(1, 3) + coef_xyz(3)*pol_z(1, 0, kg) 441 coef_xy(2, 3) = coef_xy(2, 3) + coef_xyz(3)*pol_z(2, 0, kg) 442 coef_xy(1, 4) = coef_xy(1, 4) + coef_xyz(4)*pol_z(1, 0, kg) 443 coef_xy(2, 4) = coef_xy(2, 4) + coef_xyz(4)*pol_z(2, 0, kg) 444 coef_xy(1, 5) = coef_xy(1, 5) + coef_xyz(5)*pol_z(1, 0, kg) 445 coef_xy(2, 5) = coef_xy(2, 5) + coef_xyz(5)*pol_z(2, 0, kg) [all …]
|
H A D | collocate_fast_3.f90 | 141 coef_xy(1, 1) = coef_xy(1, 1) + coef_xyz(1)*pol_z(1, 0, kg) 142 coef_xy(2, 1) = coef_xy(2, 1) + coef_xyz(1)*pol_z(2, 0, kg) 313 coef_xy(1, 1) = coef_xy(1, 1) + coef_xyz(1)*pol_z(1, 0, kg) 314 coef_xy(2, 1) = coef_xy(2, 1) + coef_xyz(1)*pol_z(2, 0, kg) 315 coef_xy(1, 2) = coef_xy(1, 2) + coef_xyz(2)*pol_z(1, 0, kg) 316 coef_xy(2, 2) = coef_xy(2, 2) + coef_xyz(2)*pol_z(2, 0, kg) 317 coef_xy(1, 3) = coef_xy(1, 3) + coef_xyz(3)*pol_z(1, 0, kg) 318 coef_xy(2, 3) = coef_xy(2, 3) + coef_xyz(3)*pol_z(2, 0, kg) 319 coef_xy(1, 4) = coef_xy(1, 4) + coef_xyz(4)*pol_z(1, 0, kg) 320 coef_xy(2, 4) = coef_xy(2, 4) + coef_xyz(4)*pol_z(2, 0, kg) [all …]
|
H A D | collocate_fast_2.f90 | 314 coef_xy(:, 1) = coef_xy(:, 1) + coef_xyz(1)*pol_z(:, 0, kg) 315 coef_xy(:, 2) = coef_xy(:, 2) + coef_xyz(2)*pol_z(:, 0, kg) 316 coef_xy(:, 3) = coef_xy(:, 3) + coef_xyz(3)*pol_z(:, 0, kg) 317 coef_xy(:, 4) = coef_xy(:, 4) + coef_xyz(4)*pol_z(:, 0, kg) 318 coef_xy(:, 5) = coef_xy(:, 5) + coef_xyz(5)*pol_z(:, 0, kg) 319 coef_xy(:, 6) = coef_xy(:, 6) + coef_xyz(6)*pol_z(:, 0, kg) 320 coef_xy(:, 1) = coef_xy(:, 1) + coef_xyz(7)*pol_z(:, 1, kg) 321 coef_xy(:, 2) = coef_xy(:, 2) + coef_xyz(8)*pol_z(:, 1, kg) 322 coef_xy(:, 4) = coef_xy(:, 4) + coef_xyz(9)*pol_z(:, 1, kg) 412 coef_xy(:, 1) = coef_xy(:, 1) + coef_xyz(1)*pol_z(:, 0, kg) [all …]
|
H A D | collocate_fast_4.f90 | 141 coef_xy(:, 1) = coef_xy(:, 1) + coef_xyz(1)*pol_z(:, 0, kg) 222 coef_xy(:, 1) = coef_xy(:, 1) + coef_xyz(1)*pol_z(:, 0, kg) 223 coef_xy(:, 2) = coef_xy(:, 2) + coef_xyz(2)*pol_z(:, 0, kg) 224 coef_xy(:, 3) = coef_xy(:, 3) + coef_xyz(3)*pol_z(:, 0, kg) 225 coef_xy(:, 1) = coef_xy(:, 1) + coef_xyz(4)*pol_z(:, 1, kg) 302 coef_xy(1, 1) = coef_xy(1, 1) + coef_xyz(1)*pol_z(1, 0, kg) 303 coef_xy(2, 1) = coef_xy(2, 1) + coef_xyz(1)*pol_z(2, 0, kg) 304 coef_xy(1, 2) = coef_xy(1, 2) + coef_xyz(2)*pol_z(1, 0, kg) 305 coef_xy(2, 2) = coef_xy(2, 2) + coef_xyz(2)*pol_z(2, 0, kg) 306 coef_xy(1, 3) = coef_xy(1, 3) + coef_xyz(3)*pol_z(1, 0, kg) [all …]
|
H A D | integrate_fast_6.f90 | 46 coef_xy = 0.0_dp 173 coef_xy(1, 1) = coef_xy(1, 1) + coef_x(1, 0)*pol_y(1, 0, jg) 174 coef_xy(2, 1) = coef_xy(2, 1) + coef_x(2, 0)*pol_y(1, 0, jg) 175 coef_xy(1, 1) = coef_xy(1, 1) + coef_x(3, 0)*pol_y(2, 0, jg) 176 coef_xy(2, 1) = coef_xy(2, 1) + coef_x(4, 0)*pol_y(2, 0, jg) 262 coef_xy(:, 1) = coef_xy(:, 1) + coef_x(1:2, 0)*pol_y(1, 0, jg) 263 coef_xy(:, 1) = coef_xy(:, 1) + coef_x(3:4, 0)*pol_y(2, 0, jg) 264 coef_xy(:, 2) = coef_xy(:, 2) + coef_x(1:2, 1)*pol_y(1, 0, jg) 265 coef_xy(:, 2) = coef_xy(:, 2) + coef_x(3:4, 1)*pol_y(2, 0, jg) 266 coef_xy(:, 3) = coef_xy(:, 3) + coef_x(1:2, 0)*pol_y(1, 1, jg) [all …]
|
H A D | integrate_fast_4.f90 | 46 coef_xy = 0.0_dp 170 coef_xy(:, 1) = coef_xy(:, 1) + coef_x(1:2, 0)*pol_y(1, 0, jg) 171 coef_xy(:, 1) = coef_xy(:, 1) + coef_x(3:4, 0)*pol_y(2, 0, jg) 254 coef_xy(:, 1) = coef_xy(:, 1) + coef_x(1:2, 0)*pol_y(1, 0, jg) 255 coef_xy(:, 1) = coef_xy(:, 1) + coef_x(3:4, 0)*pol_y(2, 0, jg) 256 coef_xy(:, 2) = coef_xy(:, 2) + coef_x(1:2, 1)*pol_y(1, 0, jg) 257 coef_xy(:, 2) = coef_xy(:, 2) + coef_x(3:4, 1)*pol_y(2, 0, jg) 258 coef_xy(:, 3) = coef_xy(:, 3) + coef_x(1:2, 0)*pol_y(1, 1, jg) 259 coef_xy(:, 3) = coef_xy(:, 3) + coef_x(3:4, 0)*pol_y(2, 1, jg) 579 coef_xy(1, 1) = coef_xy(1, 1) + coef_x(1, 0)*pol_y(1, 0, jg) [all …]
|
H A D | integrate_fast_1.f90 | 171 coef_xy(1, 1) = coef_xy(1, 1) + coef_x(1, 0)*pol_y(1, 0, jg) 172 coef_xy(2, 1) = coef_xy(2, 1) + coef_x(2, 0)*pol_y(1, 0, jg) 173 coef_xy(1, 1) = coef_xy(1, 1) + coef_x(3, 0)*pol_y(2, 0, jg) 174 coef_xy(2, 1) = coef_xy(2, 1) + coef_x(4, 0)*pol_y(2, 0, jg) 262 coef_xy(1, 1) = coef_xy(1, 1) + coef_x(1, 0)*pol_y(1, 0, jg) 263 coef_xy(2, 1) = coef_xy(2, 1) + coef_x(2, 0)*pol_y(1, 0, jg) 264 coef_xy(1, 1) = coef_xy(1, 1) + coef_x(3, 0)*pol_y(2, 0, jg) 265 coef_xy(2, 1) = coef_xy(2, 1) + coef_x(4, 0)*pol_y(2, 0, jg) 266 coef_xy(1, 2) = coef_xy(1, 2) + coef_x(1, 1)*pol_y(1, 0, jg) 267 coef_xy(2, 2) = coef_xy(2, 2) + coef_x(2, 1)*pol_y(1, 0, jg) [all …]
|
H A D | integrate_fast_3.f90 | 46 coef_xy = 0.0_dp 171 coef_xy(:, 1) = coef_xy(:, 1) + coef_x(1:2, 0)*pol_y(1, 0, jg) 172 coef_xy(:, 1) = coef_xy(:, 1) + coef_x(3:4, 0)*pol_y(2, 0, jg) 352 coef_xy(:, 1) = coef_xy(:, 1) + coef_x(1:2, 0)*pol_y(1, 0, jg) 353 coef_xy(:, 1) = coef_xy(:, 1) + coef_x(3:4, 0)*pol_y(2, 0, jg) 354 coef_xy(:, 2) = coef_xy(:, 2) + coef_x(1:2, 1)*pol_y(1, 0, jg) 355 coef_xy(:, 2) = coef_xy(:, 2) + coef_x(3:4, 1)*pol_y(2, 0, jg) 356 coef_xy(:, 3) = coef_xy(:, 3) + coef_x(1:2, 2)*pol_y(1, 0, jg) 357 coef_xy(:, 3) = coef_xy(:, 3) + coef_x(3:4, 2)*pol_y(2, 0, jg) 358 coef_xy(:, 4) = coef_xy(:, 4) + coef_x(1:2, 0)*pol_y(1, 1, jg) [all …]
|
H A D | integrate_fast_2.f90 | 170 coef_xy(1, 1) = coef_xy(1, 1) + coef_x(1, 0)*pol_y(1, 0, jg) 171 coef_xy(2, 1) = coef_xy(2, 1) + coef_x(2, 0)*pol_y(1, 0, jg) 172 coef_xy(1, 1) = coef_xy(1, 1) + coef_x(3, 0)*pol_y(2, 0, jg) 173 coef_xy(2, 1) = coef_xy(2, 1) + coef_x(4, 0)*pol_y(2, 0, jg) 251 coef_xy(1, 1) = coef_xy(1, 1) + coef_x(1, 0)*pol_y(1, 0, jg) 252 coef_xy(2, 1) = coef_xy(2, 1) + coef_x(2, 0)*pol_y(1, 0, jg) 253 coef_xy(1, 1) = coef_xy(1, 1) + coef_x(3, 0)*pol_y(2, 0, jg) 254 coef_xy(2, 1) = coef_xy(2, 1) + coef_x(4, 0)*pol_y(2, 0, jg) 255 coef_xy(1, 2) = coef_xy(1, 2) + coef_x(1, 1)*pol_y(1, 0, jg) 256 coef_xy(2, 2) = coef_xy(2, 2) + coef_x(2, 1)*pol_y(1, 0, jg) [all …]
|
H A D | integrate_fast_5.f90 | 46 coef_xy = 0.0_dp 172 coef_xy(:, 1) = coef_xy(:, 1) + coef_x(1:2, 0)*pol_y(1, 0, jg) 173 coef_xy(:, 1) = coef_xy(:, 1) + coef_x(3:4, 0)*pol_y(2, 0, jg) 433 coef_xy(:, 1) = coef_xy(:, 1) + coef_x(1:2, 0)*pol_y(1, 0, jg) 434 coef_xy(:, 1) = coef_xy(:, 1) + coef_x(3:4, 0)*pol_y(2, 0, jg) 435 coef_xy(:, 2) = coef_xy(:, 2) + coef_x(1:2, 1)*pol_y(1, 0, jg) 436 coef_xy(:, 2) = coef_xy(:, 2) + coef_x(3:4, 1)*pol_y(2, 0, jg) 437 coef_xy(:, 3) = coef_xy(:, 3) + coef_x(1:2, 2)*pol_y(1, 0, jg) 438 coef_xy(:, 3) = coef_xy(:, 3) + coef_x(3:4, 2)*pol_y(2, 0, jg) 439 coef_xy(:, 4) = coef_xy(:, 4) + coef_x(1:2, 3)*pol_y(1, 0, jg) [all …]
|
/dports/lang/gcc6-aux/gcc-6-20180516/gcc/testsuite/gfortran.dg/graphite/ |
H A D | pr68550-1.f90 | 22 coef_xy(2,((lp+1)*(lp+2))/2), & local 32 coef_xy(:,3)=coef_xy(:,3)+coef_x(3:4,0)*pol_y(2,1,jg) 34 coef_xyz(3)=coef_xyz(3)+coef_xy(1,3)*pol_z(1,0,kg)
|