forked from cp2k/cp2k
-
Notifications
You must be signed in to change notification settings - Fork 0
/
call_collocate_omp.f90
35 lines (35 loc) · 2.38 KB
/
call_collocate_omp.f90
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
SELECT CASE (lp)
CASE (0)
CALL collocate_core_0(lgrid%r(1, ithread_l), coef_xyz(1), pol_x(0, -cmax), pol_y(1, 0, -cmax), pol_z(1, 0, -cmax), &
map(-cmax, 1), sphere_bounds(1), cmax, gridbounds(1, 1))
CASE (1)
CALL collocate_core_1(lgrid%r(1, ithread_l), coef_xyz(1), pol_x(0, -cmax), pol_y(1, 0, -cmax), pol_z(1, 0, -cmax), &
map(-cmax, 1), sphere_bounds(1), cmax, gridbounds(1, 1))
CASE (2)
CALL collocate_core_2(lgrid%r(1, ithread_l), coef_xyz(1), pol_x(0, -cmax), pol_y(1, 0, -cmax), pol_z(1, 0, -cmax), &
map(-cmax, 1), sphere_bounds(1), cmax, gridbounds(1, 1))
CASE (3)
CALL collocate_core_3(lgrid%r(1, ithread_l), coef_xyz(1), pol_x(0, -cmax), pol_y(1, 0, -cmax), pol_z(1, 0, -cmax), &
map(-cmax, 1), sphere_bounds(1), cmax, gridbounds(1, 1))
CASE (4)
CALL collocate_core_4(lgrid%r(1, ithread_l), coef_xyz(1), pol_x(0, -cmax), pol_y(1, 0, -cmax), pol_z(1, 0, -cmax), &
map(-cmax, 1), sphere_bounds(1), cmax, gridbounds(1, 1))
CASE (5)
CALL collocate_core_5(lgrid%r(1, ithread_l), coef_xyz(1), pol_x(0, -cmax), pol_y(1, 0, -cmax), pol_z(1, 0, -cmax), &
map(-cmax, 1), sphere_bounds(1), cmax, gridbounds(1, 1))
CASE (6)
CALL collocate_core_6(lgrid%r(1, ithread_l), coef_xyz(1), pol_x(0, -cmax), pol_y(1, 0, -cmax), pol_z(1, 0, -cmax), &
map(-cmax, 1), sphere_bounds(1), cmax, gridbounds(1, 1))
CASE (7)
CALL collocate_core_7(lgrid%r(1, ithread_l), coef_xyz(1), pol_x(0, -cmax), pol_y(1, 0, -cmax), pol_z(1, 0, -cmax), &
map(-cmax, 1), sphere_bounds(1), cmax, gridbounds(1, 1))
CASE (8)
CALL collocate_core_8(lgrid%r(1, ithread_l), coef_xyz(1), pol_x(0, -cmax), pol_y(1, 0, -cmax), pol_z(1, 0, -cmax), &
map(-cmax, 1), sphere_bounds(1), cmax, gridbounds(1, 1))
CASE (9)
CALL collocate_core_9(lgrid%r(1, ithread_l), coef_xyz(1), pol_x(0, -cmax), pol_y(1, 0, -cmax), pol_z(1, 0, -cmax), &
map(-cmax, 1), sphere_bounds(1), cmax, gridbounds(1, 1))
CASE DEFAULT
CALL collocate_core_default(lgrid%r(1, ithread_l), coef_xyz(1), pol_x(0, -cmax), pol_y(1, 0, -cmax), pol_z(1, 0, -cmax), &
map(-cmax, 1), sphere_bounds(1), lp, cmax, gridbounds(1, 1))
END SELECT