LCPQ/quantum_package
10
0
Fork 0
mirror of https://github.com/LCPQ/quantum_package synced 2024-12-25 22:03:51 +01:00
Code Issues Releases Wiki Activity

Fixed segfault

Browse Source
This commit is contained in:
Anthony Scemama 2018-05-17 17:21:42 +02:00
parent 29ce56067d
commit ab0d5640db
1 changed files with 3 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
src/Utils/map_functions.irp.f
View File

@ -41,7 +41,7 @@ subroutine map_save_to_disk(filename,map)
call map_sort(map) call map_sort(map)
k = 1_8 k = 1_8
do i=0_8, map % map_size do i=0_8, map % map_size
map % consolidated_idx (i+1) = k map % consolidated_idx (i+1_8) = k
do j=1, map % map(i) % n_elements do j=1, map % map(i) % n_elements
map % consolidated_value(k) = map % map(i) % value(j) map % consolidated_value(k) = map % map(i) % value(j)
map % consolidated_key (k) = map % map(i) % key(j) map % consolidated_key (k) = map % map(i) % key(j)
@ -49,8 +49,8 @@ subroutine map_save_to_disk(filename,map)
enddo enddo
deallocate(map % map(i) % value) deallocate(map % map(i) % value)
deallocate(map % map(i) % key) deallocate(map % map(i) % key)
map % map(i) % value => map % consolidated_value ( map % consolidated_idx (i+1_8) :) map % map(i) % value => map % consolidated_value ( map % consolidated_idx (i+1_8) : k-1)
map % map(i) % key => map % consolidated_key ( map % consolidated_idx (i+1_8) :) map % map(i) % key => map % consolidated_key ( map % consolidated_idx (i+1_8) : k-1)
enddo enddo
map % consolidated_idx (map % map_size + 2_8) = k map % consolidated_idx (map % map_size + 2_8) = k
map % consolidated = .True. map % consolidated = .True.