LCPQ/quantum_package
10
0
Fork 0
mirror of https://github.com/LCPQ/quantum_package synced 2024-12-23 04:43:50 +01:00
Code Issues Releases Wiki Activity

Update map_module.f90

Browse Source
This commit is contained in:
Thomas Applencourt 2017-01-19 16:06:54 -06:00 committed by GitHub
parent 06413b9b59
commit 6d37f3202d
1 changed files with 9 additions and 9 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

18
src/Utils/map_module.f90
View File

@ -19,16 +19,16 @@ module map_module
use omp_lib use omp_lib
use iso_fortran_env use iso_fortran_env
integer, parameter :: integral_kind = 16 ! 8 integer, parameter :: integral_kind = 8
integer, parameter :: cache_key_kind = 4 ! 2 integer, parameter :: cache_key_kind = 2
integer, parameter :: cache_map_size_kind = 8 ! 4 integer, parameter :: cache_map_size_kind = 4
integer, parameter :: key_kind = 16 !8 integer, parameter :: key_kind = 8
integer, parameter :: map_size_kind =16 ! 8 integer, parameter :: map_size_kind = 8
integer, parameter :: map_shift = -31 !-15 integer, parameter :: map_shift = -15
!integer*8, parameter :: map_mask = ibset(0_8,15)-1_8 integer*8, parameter :: map_mask = ibset(0_8,15)-1_8
integer(kind=int16), parameter :: z_kind = 0 integer(kind=int16), parameter :: z_kind = 0
integer(kind=int16), parameter :: o_kind = 1 integer(kind=int16), parameter :: o_kind = 1
@ -50,8 +50,8 @@ module map_module
integer*8, pointer :: consolidated_idx(:) integer*8, pointer :: consolidated_idx(:)
logical :: sorted logical :: sorted
logical :: consolidated logical :: consolidated
! integer(kind=map_size_kind) :: map_size integer(kind=map_size_kind) :: map_size
! integer(kind=map_size_kind) :: n_elements integer(kind=map_size_kind) :: n_elements
integer(kind=int16) :: map_size integer(kind=int16) :: map_size
integer(kind=int16) :: n_elements integer(kind=int16) :: n_elements