/dports/science/cp2k/cp2k-2e995eec7fd208c8a72d9544807bd8b8ba8cd1cc/src/ |
H A D | call_integrate.f90 | 3 …CALL integrate_core_0(grid(1, 1, 1), coef_xyz(1), pol_x(0, -cmax), pol_y(1, 0, -cmax), pol_z(1, 0,… 6 …CALL integrate_core_1(grid(1, 1, 1), coef_xyz(1), pol_x(0, -cmax), pol_y(1, 0, -cmax), pol_z(1, 0,… 9 …CALL integrate_core_2(grid(1, 1, 1), coef_xyz(1), pol_x(0, -cmax), pol_y(1, 0, -cmax), pol_z(1, 0,… 12 …CALL integrate_core_3(grid(1, 1, 1), coef_xyz(1), pol_x(0, -cmax), pol_y(1, 0, -cmax), pol_z(1, 0,… 15 …CALL integrate_core_4(grid(1, 1, 1), coef_xyz(1), pol_x(0, -cmax), pol_y(1, 0, -cmax), pol_z(1, 0,… 18 …CALL integrate_core_5(grid(1, 1, 1), coef_xyz(1), pol_x(0, -cmax), pol_y(1, 0, -cmax), pol_z(1, 0,… 21 …CALL integrate_core_6(grid(1, 1, 1), coef_xyz(1), pol_x(0, -cmax), pol_y(1, 0, -cmax), pol_z(1, 0,… 24 …CALL integrate_core_7(grid(1, 1, 1), coef_xyz(1), pol_x(0, -cmax), pol_y(1, 0, -cmax), pol_z(1, 0,… 27 …CALL integrate_core_8(grid(1, 1, 1), coef_xyz(1), pol_x(0, -cmax), pol_y(1, 0, -cmax), pol_z(1, 0,… 30 …CALL integrate_core_9(grid(1, 1, 1), coef_xyz(1), pol_x(0, -cmax), pol_y(1, 0, -cmax), pol_z(1, 0,… [all …]
|
/dports/science/cp2k-data/cp2k-7.1.0/src/ |
H A D | call_collocate.f90 | 3 …CALL collocate_core_0(grid(1, 1, 1), coef_xyz(1), pol_x(0, -cmax), pol_y(1, 0, -cmax), pol_z(1, 0,… 6 …CALL collocate_core_1(grid(1, 1, 1), coef_xyz(1), pol_x(0, -cmax), pol_y(1, 0, -cmax), pol_z(1, 0,… 9 …CALL collocate_core_2(grid(1, 1, 1), coef_xyz(1), pol_x(0, -cmax), pol_y(1, 0, -cmax), pol_z(1, 0,… 12 …CALL collocate_core_3(grid(1, 1, 1), coef_xyz(1), pol_x(0, -cmax), pol_y(1, 0, -cmax), pol_z(1, 0,… 15 …CALL collocate_core_4(grid(1, 1, 1), coef_xyz(1), pol_x(0, -cmax), pol_y(1, 0, -cmax), pol_z(1, 0,… 18 …CALL collocate_core_5(grid(1, 1, 1), coef_xyz(1), pol_x(0, -cmax), pol_y(1, 0, -cmax), pol_z(1, 0,… 21 …CALL collocate_core_6(grid(1, 1, 1), coef_xyz(1), pol_x(0, -cmax), pol_y(1, 0, -cmax), pol_z(1, 0,… 24 …CALL collocate_core_7(grid(1, 1, 1), coef_xyz(1), pol_x(0, -cmax), pol_y(1, 0, -cmax), pol_z(1, 0,… 27 …CALL collocate_core_8(grid(1, 1, 1), coef_xyz(1), pol_x(0, -cmax), pol_y(1, 0, -cmax), pol_z(1, 0,… 30 …CALL collocate_core_9(grid(1, 1, 1), coef_xyz(1), pol_x(0, -cmax), pol_y(1, 0, -cmax), pol_z(1, 0,… [all …]
|
H A D | call_integrate.f90 | 3 …CALL integrate_core_0(grid(1, 1, 1), coef_xyz(1), pol_x(0, -cmax), pol_y(1, 0, -cmax), pol_z(1, 0,… 6 …CALL integrate_core_1(grid(1, 1, 1), coef_xyz(1), pol_x(0, -cmax), pol_y(1, 0, -cmax), pol_z(1, 0,… 9 …CALL integrate_core_2(grid(1, 1, 1), coef_xyz(1), pol_x(0, -cmax), pol_y(1, 0, -cmax), pol_z(1, 0,… 12 …CALL integrate_core_3(grid(1, 1, 1), coef_xyz(1), pol_x(0, -cmax), pol_y(1, 0, -cmax), pol_z(1, 0,… 15 …CALL integrate_core_4(grid(1, 1, 1), coef_xyz(1), pol_x(0, -cmax), pol_y(1, 0, -cmax), pol_z(1, 0,… 18 …CALL integrate_core_5(grid(1, 1, 1), coef_xyz(1), pol_x(0, -cmax), pol_y(1, 0, -cmax), pol_z(1, 0,… 21 …CALL integrate_core_6(grid(1, 1, 1), coef_xyz(1), pol_x(0, -cmax), pol_y(1, 0, -cmax), pol_z(1, 0,… 24 …CALL integrate_core_7(grid(1, 1, 1), coef_xyz(1), pol_x(0, -cmax), pol_y(1, 0, -cmax), pol_z(1, 0,… 27 …CALL integrate_core_8(grid(1, 1, 1), coef_xyz(1), pol_x(0, -cmax), pol_y(1, 0, -cmax), pol_z(1, 0,… 30 …CALL integrate_core_9(grid(1, 1, 1), coef_xyz(1), pol_x(0, -cmax), pol_y(1, 0, -cmax), pol_z(1, 0,… [all …]
|
H A D | call_collocate_omp.f90 | 3 …CALL collocate_core_0(lgrid%r(1, ithread_l), coef_xyz(1), pol_x(0, -cmax), pol_y(1, 0, -cmax), pol… 6 …CALL collocate_core_1(lgrid%r(1, ithread_l), coef_xyz(1), pol_x(0, -cmax), pol_y(1, 0, -cmax), pol… 9 …CALL collocate_core_2(lgrid%r(1, ithread_l), coef_xyz(1), pol_x(0, -cmax), pol_y(1, 0, -cmax), pol… 12 …CALL collocate_core_3(lgrid%r(1, ithread_l), coef_xyz(1), pol_x(0, -cmax), pol_y(1, 0, -cmax), pol… 15 …CALL collocate_core_4(lgrid%r(1, ithread_l), coef_xyz(1), pol_x(0, -cmax), pol_y(1, 0, -cmax), pol… 18 …CALL collocate_core_5(lgrid%r(1, ithread_l), coef_xyz(1), pol_x(0, -cmax), pol_y(1, 0, -cmax), pol… 21 …CALL collocate_core_6(lgrid%r(1, ithread_l), coef_xyz(1), pol_x(0, -cmax), pol_y(1, 0, -cmax), pol… 24 …CALL collocate_core_7(lgrid%r(1, ithread_l), coef_xyz(1), pol_x(0, -cmax), pol_y(1, 0, -cmax), pol… 27 …CALL collocate_core_8(lgrid%r(1, ithread_l), coef_xyz(1), pol_x(0, -cmax), pol_y(1, 0, -cmax), pol… 30 …CALL collocate_core_9(lgrid%r(1, ithread_l), coef_xyz(1), pol_x(0, -cmax), pol_y(1, 0, -cmax), pol… [all …]
|
/dports/science/cp2k/cp2k-2e995eec7fd208c8a72d9544807bd8b8ba8cd1cc/src/grid/ |
H A D | call_collocate.f90 | 3 …CALL collocate_core_0(grid(1, 1, 1), coef_xyz(1), pol_x(0, -cmax), pol_y(1, 0, -cmax), pol_z(1, 0,… 6 …CALL collocate_core_1(grid(1, 1, 1), coef_xyz(1), pol_x(0, -cmax), pol_y(1, 0, -cmax), pol_z(1, 0,… 9 …CALL collocate_core_2(grid(1, 1, 1), coef_xyz(1), pol_x(0, -cmax), pol_y(1, 0, -cmax), pol_z(1, 0,… 12 …CALL collocate_core_3(grid(1, 1, 1), coef_xyz(1), pol_x(0, -cmax), pol_y(1, 0, -cmax), pol_z(1, 0,… 15 …CALL collocate_core_4(grid(1, 1, 1), coef_xyz(1), pol_x(0, -cmax), pol_y(1, 0, -cmax), pol_z(1, 0,… 18 …CALL collocate_core_5(grid(1, 1, 1), coef_xyz(1), pol_x(0, -cmax), pol_y(1, 0, -cmax), pol_z(1, 0,… 21 …CALL collocate_core_6(grid(1, 1, 1), coef_xyz(1), pol_x(0, -cmax), pol_y(1, 0, -cmax), pol_z(1, 0,… 24 …CALL collocate_core_7(grid(1, 1, 1), coef_xyz(1), pol_x(0, -cmax), pol_y(1, 0, -cmax), pol_z(1, 0,… 27 …CALL collocate_core_8(grid(1, 1, 1), coef_xyz(1), pol_x(0, -cmax), pol_y(1, 0, -cmax), pol_z(1, 0,… 30 …CALL collocate_core_9(grid(1, 1, 1), coef_xyz(1), pol_x(0, -cmax), pol_y(1, 0, -cmax), pol_z(1, 0,… [all …]
|
H A D | collocate_fast_2.f90 | 172 s01 = s01 + coef_x(1, 0)*pol_x(0, ig) 173 s02 = s02 + coef_x(2, 0)*pol_x(0, ig) 174 s03 = s03 + coef_x(3, 0)*pol_x(0, ig) 175 s04 = s04 + coef_x(4, 0)*pol_x(0, ig) 258 s01 = s01 + coef_x(1, 0)*pol_x(0, ig) 259 s02 = s02 + coef_x(2, 0)*pol_x(0, ig) 260 s03 = s03 + coef_x(3, 0)*pol_x(0, ig) 261 s04 = s04 + coef_x(4, 0)*pol_x(0, ig) 262 s01 = s01 + coef_x(1, 1)*pol_x(1, ig) 263 s02 = s02 + coef_x(2, 1)*pol_x(1, ig) [all …]
|
H A D | collocate_fast_3.f90 | 257 s01 = s01 + coef_x(1, 0)*pol_x(0, ig) 258 s02 = s02 + coef_x(2, 0)*pol_x(0, ig) 259 s03 = s03 + coef_x(3, 0)*pol_x(0, ig) 260 s04 = s04 + coef_x(4, 0)*pol_x(0, ig) 261 s01 = s01 + coef_x(1, 1)*pol_x(1, ig) 262 s02 = s02 + coef_x(2, 1)*pol_x(1, ig) 263 s03 = s03 + coef_x(3, 1)*pol_x(1, ig) 264 s04 = s04 + coef_x(4, 1)*pol_x(1, ig) 361 s01 = s01 + coef_x(1, 0)*pol_x(0, ig) 362 s02 = s02 + coef_x(2, 0)*pol_x(0, ig) [all …]
|
H A D | integrate_fast_1.f90 | 166 coef_x(1, 0) = coef_x(1, 0) + s01*pol_x(0, ig) 167 coef_x(2, 0) = coef_x(2, 0) + s02*pol_x(0, ig) 168 coef_x(3, 0) = coef_x(3, 0) + s03*pol_x(0, ig) 169 coef_x(4, 0) = coef_x(4, 0) + s04*pol_x(0, ig) 253 coef_x(1, 0) = coef_x(1, 0) + s01*pol_x(0, ig) 254 coef_x(2, 0) = coef_x(2, 0) + s02*pol_x(0, ig) 255 coef_x(3, 0) = coef_x(3, 0) + s03*pol_x(0, ig) 256 coef_x(4, 0) = coef_x(4, 0) + s04*pol_x(0, ig) 257 coef_x(1, 1) = coef_x(1, 1) + s01*pol_x(1, ig) 258 coef_x(2, 1) = coef_x(2, 1) + s02*pol_x(1, ig) [all …]
|
H A D | collocate_fast_1.f90 | 174 s01 = s01 + coef_x(1, 0)*pol_x(0, ig) 175 s02 = s02 + coef_x(2, 0)*pol_x(0, ig) 176 s03 = s03 + coef_x(3, 0)*pol_x(0, ig) 177 s04 = s04 + coef_x(4, 0)*pol_x(0, ig) 267 s01 = s01 + coef_x(1, 0)*pol_x(0, ig) 268 s02 = s02 + coef_x(2, 0)*pol_x(0, ig) 269 s03 = s03 + coef_x(3, 0)*pol_x(0, ig) 270 s04 = s04 + coef_x(4, 0)*pol_x(0, ig) 271 s01 = s01 + coef_x(1, 1)*pol_x(1, ig) 272 s02 = s02 + coef_x(2, 1)*pol_x(1, ig) [all …]
|
H A D | collocate_fast_6.f90 | 178 s01 = s01 + coef_x(1, 0)*pol_x(0, ig) 179 s02 = s02 + coef_x(2, 0)*pol_x(0, ig) 180 s03 = s03 + coef_x(3, 0)*pol_x(0, ig) 181 s04 = s04 + coef_x(4, 0)*pol_x(0, ig) 348 s(:) = s(:) + coef_x(:, 0)*pol_x(0, ig) 349 s(:) = s(:) + coef_x(:, 1)*pol_x(1, ig) 350 s(:) = s(:) + coef_x(:, 2)*pol_x(2, ig) 1473 s01 = s01 + coef_x(1, 0)*pol_x(0, ig) 1474 s02 = s02 + coef_x(2, 0)*pol_x(0, ig) 1475 s03 = s03 + coef_x(3, 0)*pol_x(0, ig) [all …]
|
H A D | collocate_fast_5.f90 | 598 s01 = s01 + coef_x(1, 0)*pol_x(0, ig) 599 s02 = s02 + coef_x(2, 0)*pol_x(0, ig) 600 s03 = s03 + coef_x(3, 0)*pol_x(0, ig) 601 s04 = s04 + coef_x(4, 0)*pol_x(0, ig) 602 s01 = s01 + coef_x(1, 1)*pol_x(1, ig) 603 s02 = s02 + coef_x(2, 1)*pol_x(1, ig) 604 s03 = s03 + coef_x(3, 1)*pol_x(1, ig) 605 s04 = s04 + coef_x(4, 1)*pol_x(1, ig) 606 s01 = s01 + coef_x(1, 2)*pol_x(2, ig) 607 s02 = s02 + coef_x(2, 2)*pol_x(2, ig) [all …]
|
H A D | integrate_fast_5.f90 | 243 coef_x(1, 0) = coef_x(1, 0) + s01*pol_x(0, ig) 244 coef_x(2, 0) = coef_x(2, 0) + s02*pol_x(0, ig) 245 coef_x(3, 0) = coef_x(3, 0) + s03*pol_x(0, ig) 246 coef_x(4, 0) = coef_x(4, 0) + s04*pol_x(0, ig) 247 coef_x(1, 1) = coef_x(1, 1) + s01*pol_x(1, ig) 248 coef_x(2, 1) = coef_x(2, 1) + s02*pol_x(1, ig) 249 coef_x(3, 1) = coef_x(3, 1) + s03*pol_x(1, ig) 250 coef_x(4, 1) = coef_x(4, 1) + s04*pol_x(1, ig) 428 coef_x(:, 0) = coef_x(:, 0) + s(:)*pol_x(0, ig) 429 coef_x(:, 1) = coef_x(:, 1) + s(:)*pol_x(1, ig) [all …]
|
H A D | integrate_fast_2.f90 | 165 coef_x(1, 0) = coef_x(1, 0) + s01*pol_x(0, ig) 166 coef_x(2, 0) = coef_x(2, 0) + s02*pol_x(0, ig) 167 coef_x(3, 0) = coef_x(3, 0) + s03*pol_x(0, ig) 168 coef_x(4, 0) = coef_x(4, 0) + s04*pol_x(0, ig) 242 coef_x(1, 0) = coef_x(1, 0) + s01*pol_x(0, ig) 243 coef_x(2, 0) = coef_x(2, 0) + s02*pol_x(0, ig) 244 coef_x(3, 0) = coef_x(3, 0) + s03*pol_x(0, ig) 245 coef_x(4, 0) = coef_x(4, 0) + s04*pol_x(0, ig) 246 coef_x(1, 1) = coef_x(1, 1) + s01*pol_x(1, ig) 247 coef_x(2, 1) = coef_x(2, 1) + s02*pol_x(1, ig) [all …]
|
H A D | integrate_fast_6.f90 | 338 coef_x(1, 0) = coef_x(1, 0) + s01*pol_x(0, ig) 339 coef_x(2, 0) = coef_x(2, 0) + s02*pol_x(0, ig) 340 coef_x(3, 0) = coef_x(3, 0) + s03*pol_x(0, ig) 341 coef_x(4, 0) = coef_x(4, 0) + s04*pol_x(0, ig) 342 coef_x(1, 1) = coef_x(1, 1) + s01*pol_x(1, ig) 343 coef_x(2, 1) = coef_x(2, 1) + s02*pol_x(1, ig) 344 coef_x(3, 1) = coef_x(3, 1) + s03*pol_x(1, ig) 345 coef_x(4, 1) = coef_x(4, 1) + s04*pol_x(1, ig) 346 coef_x(1, 2) = coef_x(1, 2) + s01*pol_x(2, ig) 347 coef_x(2, 2) = coef_x(2, 2) + s02*pol_x(2, ig) [all …]
|
H A D | collocate_fast_4.f90 | 350 s01 = s01 + coef_x(1, 0)*pol_x(0, ig) 351 s02 = s02 + coef_x(2, 0)*pol_x(0, ig) 352 s03 = s03 + coef_x(3, 0)*pol_x(0, ig) 353 s04 = s04 + coef_x(4, 0)*pol_x(0, ig) 354 s01 = s01 + coef_x(1, 1)*pol_x(1, ig) 355 s02 = s02 + coef_x(2, 1)*pol_x(1, ig) 356 s03 = s03 + coef_x(3, 1)*pol_x(1, ig) 357 s04 = s04 + coef_x(4, 1)*pol_x(1, ig) 358 s01 = s01 + coef_x(1, 2)*pol_x(2, ig) 359 s02 = s02 + coef_x(2, 2)*pol_x(2, ig) [all …]
|
/dports/science/cp2k-data/cp2k-7.1.0/src/grid/ |
H A D | collocate_fast_2.f90 | 172 s01 = s01 + coef_x(1, 0)*pol_x(0, ig) 173 s02 = s02 + coef_x(2, 0)*pol_x(0, ig) 174 s03 = s03 + coef_x(3, 0)*pol_x(0, ig) 175 s04 = s04 + coef_x(4, 0)*pol_x(0, ig) 258 s01 = s01 + coef_x(1, 0)*pol_x(0, ig) 259 s02 = s02 + coef_x(2, 0)*pol_x(0, ig) 260 s03 = s03 + coef_x(3, 0)*pol_x(0, ig) 261 s04 = s04 + coef_x(4, 0)*pol_x(0, ig) 262 s01 = s01 + coef_x(1, 1)*pol_x(1, ig) 263 s02 = s02 + coef_x(2, 1)*pol_x(1, ig) [all …]
|
H A D | collocate_fast_3.f90 | 257 s01 = s01 + coef_x(1, 0)*pol_x(0, ig) 258 s02 = s02 + coef_x(2, 0)*pol_x(0, ig) 259 s03 = s03 + coef_x(3, 0)*pol_x(0, ig) 260 s04 = s04 + coef_x(4, 0)*pol_x(0, ig) 261 s01 = s01 + coef_x(1, 1)*pol_x(1, ig) 262 s02 = s02 + coef_x(2, 1)*pol_x(1, ig) 263 s03 = s03 + coef_x(3, 1)*pol_x(1, ig) 264 s04 = s04 + coef_x(4, 1)*pol_x(1, ig) 361 s01 = s01 + coef_x(1, 0)*pol_x(0, ig) 362 s02 = s02 + coef_x(2, 0)*pol_x(0, ig) [all …]
|
H A D | collocate_fast_1.f90 | 174 s01 = s01 + coef_x(1, 0)*pol_x(0, ig) 175 s02 = s02 + coef_x(2, 0)*pol_x(0, ig) 176 s03 = s03 + coef_x(3, 0)*pol_x(0, ig) 177 s04 = s04 + coef_x(4, 0)*pol_x(0, ig) 267 s01 = s01 + coef_x(1, 0)*pol_x(0, ig) 268 s02 = s02 + coef_x(2, 0)*pol_x(0, ig) 269 s03 = s03 + coef_x(3, 0)*pol_x(0, ig) 270 s04 = s04 + coef_x(4, 0)*pol_x(0, ig) 271 s01 = s01 + coef_x(1, 1)*pol_x(1, ig) 272 s02 = s02 + coef_x(2, 1)*pol_x(1, ig) [all …]
|
H A D | integrate_fast_1.f90 | 166 coef_x(1, 0) = coef_x(1, 0) + s01*pol_x(0, ig) 167 coef_x(2, 0) = coef_x(2, 0) + s02*pol_x(0, ig) 168 coef_x(3, 0) = coef_x(3, 0) + s03*pol_x(0, ig) 169 coef_x(4, 0) = coef_x(4, 0) + s04*pol_x(0, ig) 253 coef_x(1, 0) = coef_x(1, 0) + s01*pol_x(0, ig) 254 coef_x(2, 0) = coef_x(2, 0) + s02*pol_x(0, ig) 255 coef_x(3, 0) = coef_x(3, 0) + s03*pol_x(0, ig) 256 coef_x(4, 0) = coef_x(4, 0) + s04*pol_x(0, ig) 257 coef_x(1, 1) = coef_x(1, 1) + s01*pol_x(1, ig) 258 coef_x(2, 1) = coef_x(2, 1) + s02*pol_x(1, ig) [all …]
|
H A D | collocate_fast_6.f90 | 178 s01 = s01 + coef_x(1, 0)*pol_x(0, ig) 179 s02 = s02 + coef_x(2, 0)*pol_x(0, ig) 180 s03 = s03 + coef_x(3, 0)*pol_x(0, ig) 181 s04 = s04 + coef_x(4, 0)*pol_x(0, ig) 348 s(:) = s(:) + coef_x(:, 0)*pol_x(0, ig) 349 s(:) = s(:) + coef_x(:, 1)*pol_x(1, ig) 350 s(:) = s(:) + coef_x(:, 2)*pol_x(2, ig) 1473 s01 = s01 + coef_x(1, 0)*pol_x(0, ig) 1474 s02 = s02 + coef_x(2, 0)*pol_x(0, ig) 1475 s03 = s03 + coef_x(3, 0)*pol_x(0, ig) [all …]
|
H A D | collocate_fast_5.f90 | 598 s01 = s01 + coef_x(1, 0)*pol_x(0, ig) 599 s02 = s02 + coef_x(2, 0)*pol_x(0, ig) 600 s03 = s03 + coef_x(3, 0)*pol_x(0, ig) 601 s04 = s04 + coef_x(4, 0)*pol_x(0, ig) 602 s01 = s01 + coef_x(1, 1)*pol_x(1, ig) 603 s02 = s02 + coef_x(2, 1)*pol_x(1, ig) 604 s03 = s03 + coef_x(3, 1)*pol_x(1, ig) 605 s04 = s04 + coef_x(4, 1)*pol_x(1, ig) 606 s01 = s01 + coef_x(1, 2)*pol_x(2, ig) 607 s02 = s02 + coef_x(2, 2)*pol_x(2, ig) [all …]
|
H A D | integrate_fast_5.f90 | 243 coef_x(1, 0) = coef_x(1, 0) + s01*pol_x(0, ig) 244 coef_x(2, 0) = coef_x(2, 0) + s02*pol_x(0, ig) 245 coef_x(3, 0) = coef_x(3, 0) + s03*pol_x(0, ig) 246 coef_x(4, 0) = coef_x(4, 0) + s04*pol_x(0, ig) 247 coef_x(1, 1) = coef_x(1, 1) + s01*pol_x(1, ig) 248 coef_x(2, 1) = coef_x(2, 1) + s02*pol_x(1, ig) 249 coef_x(3, 1) = coef_x(3, 1) + s03*pol_x(1, ig) 250 coef_x(4, 1) = coef_x(4, 1) + s04*pol_x(1, ig) 428 coef_x(:, 0) = coef_x(:, 0) + s(:)*pol_x(0, ig) 429 coef_x(:, 1) = coef_x(:, 1) + s(:)*pol_x(1, ig) [all …]
|
H A D | integrate_fast_2.f90 | 165 coef_x(1, 0) = coef_x(1, 0) + s01*pol_x(0, ig) 166 coef_x(2, 0) = coef_x(2, 0) + s02*pol_x(0, ig) 167 coef_x(3, 0) = coef_x(3, 0) + s03*pol_x(0, ig) 168 coef_x(4, 0) = coef_x(4, 0) + s04*pol_x(0, ig) 242 coef_x(1, 0) = coef_x(1, 0) + s01*pol_x(0, ig) 243 coef_x(2, 0) = coef_x(2, 0) + s02*pol_x(0, ig) 244 coef_x(3, 0) = coef_x(3, 0) + s03*pol_x(0, ig) 245 coef_x(4, 0) = coef_x(4, 0) + s04*pol_x(0, ig) 246 coef_x(1, 1) = coef_x(1, 1) + s01*pol_x(1, ig) 247 coef_x(2, 1) = coef_x(2, 1) + s02*pol_x(1, ig) [all …]
|
H A D | integrate_fast_6.f90 | 338 coef_x(1, 0) = coef_x(1, 0) + s01*pol_x(0, ig) 339 coef_x(2, 0) = coef_x(2, 0) + s02*pol_x(0, ig) 340 coef_x(3, 0) = coef_x(3, 0) + s03*pol_x(0, ig) 341 coef_x(4, 0) = coef_x(4, 0) + s04*pol_x(0, ig) 342 coef_x(1, 1) = coef_x(1, 1) + s01*pol_x(1, ig) 343 coef_x(2, 1) = coef_x(2, 1) + s02*pol_x(1, ig) 344 coef_x(3, 1) = coef_x(3, 1) + s03*pol_x(1, ig) 345 coef_x(4, 1) = coef_x(4, 1) + s04*pol_x(1, ig) 346 coef_x(1, 2) = coef_x(1, 2) + s01*pol_x(2, ig) 347 coef_x(2, 2) = coef_x(2, 2) + s02*pol_x(2, ig) [all …]
|
H A D | collocate_fast_4.f90 | 350 s01 = s01 + coef_x(1, 0)*pol_x(0, ig) 351 s02 = s02 + coef_x(2, 0)*pol_x(0, ig) 352 s03 = s03 + coef_x(3, 0)*pol_x(0, ig) 353 s04 = s04 + coef_x(4, 0)*pol_x(0, ig) 354 s01 = s01 + coef_x(1, 1)*pol_x(1, ig) 355 s02 = s02 + coef_x(2, 1)*pol_x(1, ig) 356 s03 = s03 + coef_x(3, 1)*pol_x(1, ig) 357 s04 = s04 + coef_x(4, 1)*pol_x(1, ig) 358 s01 = s01 + coef_x(1, 2)*pol_x(2, ig) 359 s02 = s02 + coef_x(2, 2)*pol_x(2, ig) [all …]
|