-
Notifications
You must be signed in to change notification settings - Fork 0
/
Copy pathcall_integrate.f90
35 lines (35 loc) · 2.3 KB
/
call_integrate.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 integrate_core_0(grid(1, 1, 1), 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 integrate_core_1(grid(1, 1, 1), 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 integrate_core_2(grid(1, 1, 1), 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 integrate_core_3(grid(1, 1, 1), 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 integrate_core_4(grid(1, 1, 1), 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 integrate_core_5(grid(1, 1, 1), 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 integrate_core_6(grid(1, 1, 1), 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 integrate_core_7(grid(1, 1, 1), 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 integrate_core_8(grid(1, 1, 1), 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 integrate_core_9(grid(1, 1, 1), 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 integrate_core_default(grid(1, 1, 1), 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