LCPQ/qp2
9
1
Fork 0
mirror of https://github.com/QuantumPackage/qp2.git synced 2025-04-26 10:14:45 +02:00
Code Releases Activity

Fixed Pointer argument 'map' is not associated

Browse Source
This commit is contained in:
Anthony Scemama 2025-01-27 16:22:31 +01:00
parent 5cc828c03f
commit d01e24c302
1 changed files with 1 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
src/utils/map_module.f90
View File

@ -157,7 +157,7 @@ subroutine cache_map_reallocate(map,sze)
stop 2 stop 2
endif endif
if (associated(map%value)) then if (associated(map%value)) then
do i=1_8,min(size(map%key),map%n_elements) do i=1_8,min(size(map%value),map%n_elements)
value_new(i) = map%value(i) value_new(i) = map%value(i)
enddo enddo
deallocate(map%value) deallocate(map%value)