Home
last modified time | relevance | path

Searched refs:pol_x (Results 1 – 25 of 184) sorted by relevance

12345678

/dports/science/cp2k/cp2k-2e995eec7fd208c8a72d9544807bd8b8ba8cd1cc/src/
H A Dcall_integrate.f903 …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 Dcall_collocate.f903 …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 Dcall_integrate.f903 …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 Dcall_collocate_omp.f903 …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 Dcall_collocate.f903 …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 Dcollocate_fast_2.f90172 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 Dcollocate_fast_3.f90257 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 Dintegrate_fast_1.f90166 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 Dcollocate_fast_1.f90174 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 Dcollocate_fast_6.f90178 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 Dcollocate_fast_5.f90598 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 Dintegrate_fast_5.f90243 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 Dintegrate_fast_2.f90165 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 Dintegrate_fast_6.f90338 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 Dcollocate_fast_4.f90350 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 Dcollocate_fast_2.f90172 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 Dcollocate_fast_3.f90257 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 Dcollocate_fast_1.f90174 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 Dintegrate_fast_1.f90166 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 Dcollocate_fast_6.f90178 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 Dcollocate_fast_5.f90598 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 Dintegrate_fast_5.f90243 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 Dintegrate_fast_2.f90165 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 Dintegrate_fast_6.f90338 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 Dcollocate_fast_4.f90350 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 …]

12345678