-
Notifications
You must be signed in to change notification settings - Fork 0
/
Copy pathbo.f90
24 lines (24 loc) · 2.18 KB
/
bo.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
allocate(px_py_pz_dx(count)%HI_column_density_in(1:partition(count),1:partition(count)))
allocate(px_py_pz_dy(count)%HI_column_density_in(1:partition(count),1:partition(count)))
allocate(px_py_pz_dz(count)%HI_column_density_in(1:partition(count),1:partition(count)))
allocate(px_py_nz_dx(count)%HI_column_density_in(1:partition(count),-partition(count):-1))
allocate(px_py_nz_dy(count)%HI_column_density_in(-partition(count):-1,1:partition(count)))
allocate(px_py_nz_dz(-count)%HI_column_density_in(1:partition(count),1:partition(count)))
allocate(px_ny_pz_dx(count)%HI_column_density_in(-partition(count):-1,1:partition(count)))
allocate(px_ny_pz_dy(-count)%HI_column_density_in(1:partition(count),1:partition(count)))
allocate(px_ny_pz_dz(count)%HI_column_density_in(1:partition(count),-partition(count):-1))
allocate(px_ny_nz_dx(count)%HI_column_density_in(-partition(count):-1,-partition(count):-1))
allocate(px_ny_nz_dy(-count)%HI_column_density_in(-partition(count):-1,1:partition(count)))
allocate(px_ny_nz_dz(-count)%HI_column_density_in(1:partition(count),-partition(count):-1))
allocate(nx_py_pz_dx(-count)%HI_column_density_in(1:partition(count),1:partition(count)))
allocate(nx_py_pz_dy(count)%HI_column_density_in(1:partition(count),-partition(count):-1))
allocate(nx_py_pz_dz(count)%HI_column_density_in(-partition(count):-1,1:partition(count)))
allocate(nx_py_nz_dx(-count)%HI_column_density_in(1:partition(count),-partition(count):-1))
allocate(nx_py_nz_dy(count)%HI_column_density_in(-partition(count):-1,-partition(count):-1))
allocate(nx_py_nz_dz(-count)%HI_column_density_in(-partition(count):-1,1:partition(count)))
allocate(nx_ny_pz_dx(-count)%HI_column_density_in(-partition(count):-1,1:partition(count)))
allocate(nx_ny_pz_dy(-count)%HI_column_density_in(1:partition(count),-partition(count):-1))
allocate(nx_ny_pz_dz(count)%HI_column_density_in(-partition(count):-1,-partition(count):-1))
allocate(nx_ny_nz_dx(-count)%HI_column_density_in(-partition(count):-1,-partition(count):-1))
allocate(nx_ny_nz_dy(-count)%HI_column_density_in(-partition(count):-1,-partition(count):-1))
allocate(nx_ny_nz_dz(-count)%HI_column_density_in(-partition(count):-1,-partition(count):-1))